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Praktische Programme und Spiele in BASIC 


Die verwendete BASIC-Version entspricht der BASIC-Version, die 
heute auf den meisten modernen Microcomputersystemen implemen- 
tiert ist. 
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Auch auf Cassette ... 


Die 57 Programme aus diesem Buch sind auch auf Cassette lieferbar. 


PET 2001 


Alle Programme zusammen auf drei Cassetten 


Best.-Nr. 60a Cassette 1 Progr. 1 — 19 
Best.-Nr. 60b Cassette 2 Progr. 20 — 38 
Best.-Nr. 60c Cassette 3 Progr. 39 — 57 
Alle drei Cassetten zusammen: 

Best.-Nr. 60, 57 Praktische Programme in BASIC 
Bestellungen an 

W. Hofacker GmbH Verlag. 


Achtung: Cassetten sind vom Umtausch ausgeschlossen. 
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BASIC-Befehle: 


BASIC ( Beginners’ All-purpose Symbolic Instruction Code — Pro- 
grammiersprache für Anfänger und für den allgemeinen Anwendungs- 
bereich) wurde zwischen 1963 und 1964 von John Kemeny und Tho- 
mas Kurtz am Dartmouth-Kollege erfunden und weiterentwickelt. 


Obwohl BASIC erst seit 1964 benutzt wird, hat sich diese Program- 
miersprache mit zunehmender Popularität zu einer „höheren Compu- 
tersprache entwickelt, welche der Benutzer leicht beherrschen kann. 

Die wichtigsten Befehle dieser Programmiersprache sind unten aufge- 


führt: 


Befehl Beispiel 


CHANGE CHANGE NS TON 


DATA DATA 15,—8,76,.... 


DEF DEF FNR (X,Y) = 


END END 
FNEND FNEND 


FOR-TO FORX=2TO 66 


GOTO GOTO 100 


GOSUB GOSUB 100 


Begriffsbestimmung 


Ordnet den Elementen von „N” 
des ASCII, den numerischen Wert 
des Ausdrucks NS zu. 

Der DATA-Befehl weist die pas- 
senden Werte für die im READ- 
Befehl aufgelisteten Variablen an. 


Eine einzeilige Funktion wird durch 
den DEF-Befehl bestimmt. 


Beendet den Programmablauf 


Ein mehrzeiliger DEF-Befehl muß 
mit einem FNEND- (Funktions- 
Ende) Befehl beendet werden. 


Bestimmt die FOR-NEXT-Schleife 


Überträgt den Datenablauf auf 
Zeile 100 


Überträgt die Programmsteuerung 
auf ein beginnendes Unterpro- 
gramm bei 100. 


IF..THEN IFA=X THEN 100 Überträgt den Programmablauf 
nach 100, wenn der Vergleichs- 
test übereinstimmt. 

INPUT INPUTAENG. Ordnet die Variable (Variablen) 
den von dem Benutzer darge- 
botenen Werten zu. 


LET LETA=V Überweist den Wert von „V” 
nach A. 
NEXT NEXT X Bringt die Steuerung zum Anfang 


der FOR-TO-Schleife zurück. 


Bibliothekarische Funktionen 


ABS = Absolutwert 

ATN= Arctangens 

ASC= Wandelt ein ASCII-Zeichen in seinen entsprechenden nume- 
rischen Wert um und ordnet ihn zu. 

CHRS= Wandelt einen numerischen Wert in sein entsprechendes 
ASCII-Zeichen um und ordnet dieses zu. 

COS= Kosinus 

COT= Kotangens 

DET= Determinante 

EXP= eX (Exponent) 

INT = „schneidet“ eine Zahl ab 

LOC= bestimmt die Stellung des Zeigers 

LOF= bestimmt die letzte Speicherstelle in einer Datei. 

LOG= bringt den Logarithmus (zur Basis e) entsprechend dem 
Argument 

RND= erzeugt eine Zufalls-Variable 

SGN= Bestimmt das Zeichen der Variablen 

SIN= Sinus 

SOR= Quadrat-Wurzel 

TAB= Stellungen des Druckerkopfes eines Druckers (Bildröhre 
oder Leitung) 

TAN= Tangens 


BASIC-Befehlsfunktionen 


BYE = Bricht das (gleichzeitige) Teilnehmer-System ab. 

CATALOG=Namens-Liste aller gesicherten Dateien 

GOOD- 

BYE = 5,BYE 

LIST = Erzeugt eine Listenschreibung (Auflistung) der laufen- 
den Datei 

NEW = Gibt an, daß eine neue Datei formiert wird. 

OLD = Zugriffe zu einer bestehenden Datei 

RENAME-= Gestattet, daß der Name eines laufenden Programms ge- 
andert wird. 

RUN = Erzeugt den Ablauf des laufenden Programms 


SAVE 


Verursacht die ‚Rettung‘ (Speicherung) des laufenden 

Programms. 

SCRATCH= Löscht die laufende Datei 

SYSTEM = Überträgt die Steuerung von BASIC auf den Monitor des 
Systems. 

UNSAVE = Löscht die Speicherung einer Datei 


exponential: 1 Exponent (Potenzierung) 
multiplication: * Multiplication 


Programme: 

Jedes Programm enthält eine anwendbare Formel, auf welche ein 
Beispiel unter Verwendung des Programms folgt, ein Flußdiagramm 
und schließlich das Programm selbst. 





Kreisring- 
abschnitte 


Kreisringabschnitte 





Dieses Programm berechtet die verschiedenen Parameter; das Träg- 
heitsmoment, das polare- und das Flächenträgheitsmoment in Ver- 
bindung mit einem Kreisring-Abschnitt. 


Formel: 
Kreisring-Abschnitt 
or (de* — dı“) db? — dı?) 
ANNULAR SECTION I=" Tg a=-"E I 


wobei | und J in (inch3) und in (inch?) angegeben sind. 
1 inch = ca. 25 mm 


Listing: 
READY. 


10 REM KREISRINGABSCHNITTE: 

15 REM DIESES PROGRAMM ERRECHNET DIE VERSCHIE- 
20 REM DENEN PARAMETER IM ZUSAMMENHANG MIT 
30 REM KREISRINGEN. 

AO FRINT"INNENDURCHMESSER (Di) = "5 

0 INPUT Di 

60 PRINT"AUSSENDURCHMESSER (D2) ="; 

65 INPUT D2 

70 LET P=3.14159 

80 LET I=(Pxt((D2°4)-(D1”4)))/64 

+0 LET J=I#2 

100 LET A=J#8/((D2*°2)+(N1*2)) 


110 PRINT"TRAEGHEITSMOMENT = "51 
120 PRINT"POLARES TRAEGHEITSMOMENT = "5, 
130 PRINT"FLAECHE DES ABSCHNITTES = "5A 
140 PRINT 
150 FRINT"TIPPE 1 FUER EINE ERNEUTE RECHNUNG EIN. 
155 PRINT"TIPPE 0 FUER DIE BEENDIGUNG. 
160 INPUT L 
170 IF L=1 THEN 190 
180 5TOP 
170 PRINT 
200 G0TD 40 
210 END 

READY. 


Probelauf 


INNENDURCHHESSER (DI) = 3 
AUSSENDURCHMESSER (D2) = 4,11 
TRAEGHEITSMONENT = 10.0306572 

FOLARES TRAEGHEITSMOMENT = 20.0613143 
FLAECHE DES ABSCHNITTES = 6.19843561 


TIPPE 1 FUER EINE ERNEUTE RECHNUNG EIN. 
TIPPE 0 FUER DIE BEENDIGUNG. 
d 


BREAK IN 180 
READY. 


Arithmetische 
Mittel 


Nach jeder eingetretenen Abtastung spricht der Computer mit der 
Abtast-Nummer und dem laufenden Mittel an. Der Programmablauf 
wird solange fortgesetzt, bis die Bedienungsperson einen Ausgangs- 
oder Unterbrechungs-Befehl eintippt. 





Arithmetisches Mittel 


Formel: 
äi 
1 


ıMZ 


Ku ck 
A= N 
l 


Listing: 


READY. 


10 REM ARITHMETISCHES MITTEL 
15 REM DIESES PROGRAMM ERMITTELT DAS ARITHMETISCHE 
20 REM MITTEL AUS EINGEGEBENEN ZAHLEN. 
30 LET X=0 
40 LET N=0 
0 PRINT"EINGABE EINER ZAHL AUS DEM GEGEBENEN" 
3 PRINT"ZAHLENBEREICH" 
60 INPUT W 
70 LET N=Ntl 
‚80 LET X=X+U 
70 LET A=X/N 
75 PRINT 
100 PRINT"LAUFENDE NUMMER=";N,"EINGEGEBENE ZAHL=";W 
105 PRINT"LAUFENDES NMITTEL="5A 
107 PRINT 
110 6G0T050 
120 END 
READY. 


Probelauf: 


EINGABE EINER ZAHL AUS DEM GEGEBENEN 
ZAHLENBEREICH 
y 


LAUFENDE NUMMER= 1EINGEGEBENE ZAHL= 5 
LAUFENDES MITTEL= 5 


EINGABE EINER ZAHL AUS DEM GEGEBENEN 
ZAHLENBEREICH 
67 


LAUFENDE NUMMER= 2EINGEGEBENE ZAHL= 67 
LAUFENDES MITTEL= 36 


EINGABE EINER ZAHL AUS DEN GEGEBENEN 
ZAHLENBEREICH 
J 


LAUFENDE NUMMER= 3EINGEGEBENE ZAHL= 5 
LAUFENDES MITTEL= 25.666664? 


EINGABE EINER ZAHL AUS DEN GEGEBENEN 
ZAHLENBEREICH 
45 


LAUFENDE NUMMER= 4EINGEGEBENE ZAHL= 45 
LAUFENDES MITTEL= 30.5 


EINGABE EINER ZAHL AUS DEM GEGEBENEN 
ZAHLENBEREICH 
12 


LAUFENDE NUNMER= SEINGEGEBENE ZAHL= 12 
LAUFENDES MITTEL= 26.8 


EINGABE EINER ZAHL AUS DEN GEGEBENEN 
ZAHLENBEREICH 
123 


LAUFENDE NUMMER= GEINGEGEBENE ZAHL= 123 
LAUFENDES MITTEL= 42.8333333 


EINGABE EINER ZAHL AUS DEM GEGEBENEN 
ZAHLENBEREICH 
d 


LAUFENDE NUMMER= 7EINGEGEBENE ZAHL= 0 
AUFENDES MITTEL= 36.7142857 


Arithmetische 
Reihe 
Arithmetische Reihe 


Nach der folgenden Information: Erster Ausdruck, gemeinsamer 
Abstand und Anzahl der Ausdrucke. Das Programm berechnet die 
arithmetische Reihe. 





Formel: A,A+D,A +2D,..A +((N- DD) 
Listing: 
READY. 


10 REM ARITHMETISCHE REIHE 

15 REM DIESES PROGRAMM ERRECHNET ARITHMETISCHE 
17 REM REIHEN 

20 PRINT"ERSTES GLIED" 

30 INPUT A 

40 PRINT"DIFFERENZ ZWISCHEN DEN GLIEDERN" 
»0 INPUT D 

60 PRINT"ANZAHL DER GLIEDER" 

70 INPUT N 

80 PRINT"ZUR TABELLIERUNG TIPPE 1 EIN" 

85 PRINT"WENN NICHT ERWUENSCHT TIPPE O0 EIN" 
70 INPUT C 

100 IF C=1 THEN 120 

110 G0OTO 140 

120 PRINT"ARITHMETISCHE REIHE" 

130 PRINT"GLIEDNUMMER", "REIHE DER GLIEDER" 
140 LET J=0 

150 FOR I=0 TO N-1 


160 LET K=1I+1 
170 LET L=AtIxD 
180 LET J=J+L 
170 IF C=1 THEN 210 
200 6070220 
210 PRINT K,,L 
220 NEXT I 
230 PRINT"SUMHE="; 
240 PRINT 
250 PRINT"TIPPE 1 FUER EINE ERNEUTE RECHNUNG EIN." 
253 PRINT"O WENN DU FERTG BIST" 
260 INPUT X 
270 IF X=1 THEN 290 
280 STOP 
270 PRINT 
300 G0TO 20 
310 END 
READY. 


Probelauf: 


ERSTES GLIED 
10 
DIFFERENZ ZWISCHEN DEN GLIEDERN 
2 
ANZAHL BER GLIEDER 
B 
ZUR TABELLIERUNG TIPPE 1 EIN 
WENN NICHT ERWUENSCHT TIPPE.O EIN 
1 
ARITHMETISCHE REIHE 
GLIEDNUMMERREIHE DER GLIEDER 
ı 10 


2 
3 
4 
5 
b 20 
? 
8 
U 


SUMME= 136 


10 


TIPPE 1 FUER EINE ERNEUTE RECHNUNG EIN. 
0 WENN DU FERTG BIST 
Ö 


BREAK IN 280 
READY. 


„Black Jack“ 


Blackjack 

Blackjack oder das Spiel ‚„ 17 und 4° wird gegen den Computer ge- 
spielt, dieser stellt den Kartengeber dar. Die Karten werden von einem 
automatisch nachwachsenden Kartenstapel verteilt. Die Standard- 
Regeln sind wie folgt: 


— Blackjack gewinnt, es sei denn, daß der Kartengeber ebenfalls 
Blackjack bekommt. In diesem Fall gewinnt dann kein Spie- 
ler. 

— Die höchste (Punkte)-Zahl unterhalb von 21 gewinnt. Der 
Kartengeber muß eine Karte ziehen, wenn er weniger als 
17 hat, er muß jedoch abwarten, wenn er 17 oder eine größe- 
re Zahl hat. 

_ „Asse‘' zählen als 11, es sei denn, Sie würden dem Spieler 
damit ein „Blatt’’ über 21 aufzwingen, in diesem Fall zählt 
das Assalseine 1. 

Listing: 


READY. 


10 REM BLACKJACK 

20 PRINT"FALLS DU EINE ANLEITUNG BRAUCHST TIPPE 
30 PRINT"JA EIN. WENN NICHT SO GEBE NEIN EIN. 
40 INPUT C$ 

0 IF C$="JA" THEN 90 

60 IF C$="NEIN" THEN 340 

70 PRINT"FALSCHE EINGABE" 

B0 60T0 20 

90 PRINT 

100 PRINT" +42 242463 BLACK JACKS RR RE 
110 PRINT 


PRINT"DER COMPUTER IST DER KARTENGEBER. 
PRINT"ER GIBT DEM SPIELER UND SICH SELBST 
PRINT"ZWEI KARTEN. 

PRINT"DIE ZWEI KARTEN DES SPIELERS UN EINE 
PRINT"KARTE DES COMPUTERS WERDEN AUFGEDECKT. 
FRINT"BEIDE, DER SPIELER UND DER COMPUTER 
PRINT"KOENNEN NACHTRAEGLICH NOCH KARTEN 
PRINT"ZIEHEN. DAS ZIEL IST 21 ZU ERREICHEN 
PRINT"ODER WENIGER. ZIEHT DER SPIELER KEINE 
PRINT"KARTE MEHR, 50 IST DER COMPUTER AM ZUG. 
PRINT"FALLS ES VORKOMMT, DASS EIN SPIELER 
PRINT"MEHR ALS 21 ERREICHT HAT, 50 HAT ER 
PRINT"AUTOMATISCH VERLOREN. 

PRINT"DER KOENIG, DIE KOENIGIN UND DER JACK 
PRINT"HABEN ALLE 10 PUNKTE. ALLE ANDEREN 
PRINT"KARTEN AUSSCHLIESSLICH DEM AS ZAEHLEN 
PRINT"GANZ NORMAL WIE SONST AUCH. DAS AS 
PRINT"ZAEHLT 11 PUNKTE AUSSER MAN HAT MEHR 
FRINT"ALS 21 PUNKTE ERREICHT. DANN ZAEHLT DAS 
FRINT"AS NUR 1 PUNKT. FALLS SPIELER UND 
PRINT"COMPUTER BLACKJACK BEKOMMEN SOLLTEN 
PRINT"GEWINNT NIEMAND. HAT DER COMPUTER 1% 
PRINT"PUNKTE ODER DARUNTER, 50 MUS55 ER NOCH 
PRINT"EINE KARTE ZIEHEN. WENN 17 ERREICHT IST 
PRINT"S5O BRAUCHT KEINE KARTE MEHR GENOMMEN 
PRINT"WERDEN. 

PRINT"WILLST DU EINE KARTE 50 GEBE JA EIN 
PRINT"WILLST DU KEINE KARTE 50 GEBE NEIN EIN. 
PRINT"VIEL GLUECK**+MOEGE DER BESSERE GEWINNEN 
REM ERSTER ZUG 

LET D=0 

LET P=D 

GOSUB 820 

LET Di=C 

GOSUB 820 

LET D2=C 

GOSUB 820 

LET Pi=C 

GOSUR 870 

LET P2=C 

PRINT 

PRINT"DER COMPUTER HAT ",Di 

PRINT"DU HAST ";Pi,"UND",P2 


11 


12 


PRINT"DEINE GESAMTPUNKTZAHL ";Pi+P2 
LET D=D1+D2 

LET P=Pi+P2 

IF P=21 THEN 6540 

GOSUB 960 

IF L=1 THEN 690 

IF D<=16 THEN 740 

PRINT"DER COMPUTER HAT "yü 
PRINT"DU HAST "5P 

IF P>DTHEN 620 

REM GEWINN ODER VERLIER-ABFRAGE 
PRINT"DER COMPUTER HAT GEWONNEN! II" 
GOTO 1060 

PRINT"DU HAST GEWONNEN! II" 

GOTO 10680 

PRINT"*#++342+4*4#DU HAST BLACK JACK +++ +3 
IF D=21 THEN 670 

GOTO 560 

PRINT"DER COMPUTER HAT AUCHRLACKJACK, 
PRINT"ES GIBT KEINEN GEWINNER. 
GOTO 1060 

GOSUB 870 

PRINT"DEINE KARTE IST";C 

LET P=P+C 

IF P>21 THEN 600 

GOTO 530 

PRINT"DER COMPUTER HAT";D 

GOSUB 820 

LET D=D+C 

FRINT"DER COMPUTER ZIEHT"5C 
PRINT"SEINE GESAMTPUNKTZAHL IST";D 
IF D>21 THEN 620 

IF D<=16 THEN 750 

GOTO 560 

LET C=1+INTCII#RNDCI)) 

IF C=11 THEN 850 

6070880 

IF(D+C)>21 THEN 870 

GOTO 880 

LET C=1 

RETURN 

LET C=1+INTtI1#RNDEI)) 

IF G=11 THEN 920 


710 GOTO 950 
920 IF(P+C)>21 THEN 740 
730 GOTO 950 
940 LET C=l 
750 RETURN 
960 PRINT"WILLST DU EINE KARTE, ODER KEINE 
970 INPUT 0$ 
980 IF Q$="JA" THEN 1020 
970 IF Q$="NEIN" THEN 1040 
1000 FRINT"UNERLAUBTE EINGABE" 
1010 G0TD 960 
1020 LET L=1 
1030 GOTO1050 
1040 LET L=0 
1050 RETURN 
10580 PRINT 
1070 PRINT"MOECHTEST DU NOCHEINHAL SPIELEN?" 
1080 PRINT"TIPPE JA ODER NEIN EIN" 
1070 INPUT L$ 
1100 IF L$="JA" THEN 1130 
1110 PRINT"AUFWIEDERSEHEN! 
1120 STOP 
1130 FRINT 
1140 GOTO 20 
1150 END 
READY. 


Probelauf: 


FALLS DU EINE ANLEITUNG BRAUCHST TIFPE 
JA EIN. WENN NICHT SO GEBE NEIN EIN. 
NEIN 

VIEL GLUECK#+MOEGE DER BESSERE GEWINNEN 


DER COMPUTER HAT 8 

DU HAST BUND 1 

DEINE GESANTPUNKTZAHL 9 

WILLST DU EINE KARTE, ODER KEINE 
JA 

DEINE KARTE IST 5 

WILLST DU EINE KARTE, ODER KEINE 
JA 


13 


DEINE KARTE IST 19 
DER COMPUTER HAT GEWONNEN!!! 


MOECHTEST DU NOCHEINMAL SPIELEN? 
TIPPE JA ODER NEIN EIN 
JA 


FALLS DU EINE ANLEITUNG BRAUCHST TIPPE 
JA EIN. WENN NICHT 50 GEBE NEIN EIN. 
NEIN 

VIEL GLUECK##MOEGE DER BESSERE GEWINNEN 


DER COMPUTER HAT 8 

DU HAST 6UND 5 

DEINE GESAMTPUNKTZAHL 11 

WILLST DU EINE KARTE, ODER KEINE 
JA 

DEINE KARTE IST 8 

WILLST DU EINE KARTE, ODER KEINE 
NEIN 

DER COMPUTER HAT 18 

DU HAST 19 

DU HAST GEWONNEN!!! 


MOECHTEST DU NOCHEINMAL SPIELEN? 
TIPPE JA ODER NEIN EIN 

NEIN 

AUFWIEDERSEHEN! 


BREAK IN 1129 
READY. 


CHI-Quadrat- 
Auswertung 


CHI-Quadrat-Auswertung 

Dieses Programm berechnet die CHI-Quadrat-Auswertung von den 
eingegebenen, beobachteten und den voraussichtlichen Häufigkei- 
ten. Zum Abbrechen der Auswertung gibt der Benutzer einfach eine 
O für die letzte, voraussichtliche Häufigkeit ein. 





Formel: 
N 
X: — > (O1 Se Ey? 
Eı 
ı=1 
Listing: 
READY. 


10 REM CHI-QUADRAT-AUSWERTUNG 

15 REM DIESES PROGRAMM ERRECHNET DIE CHI-QUADRAT- 
20 REM AUSWERTUNG VON DEN BEOBACHTETEN ZU DEN 

30 REM VORAUSSICHTICHEN HAEUFIGKEITEN. 

40 LET J=0 

45 PRINT"DIE RECHNUNG WIRD BEENDET, WENN DU" 

46 PRINT"BEI DEN VORAUSSICHTLICHEN HAEUFIGKEITEN" 
47 PRINT"EINE 0 EINGIBST." 

0 PRINT"BEOBACHTETE HAEUFIGKEITEN" 

60 INPUT D 

70 PRINT"VORAUSSICHTLICHE HAEUFIGKEITEN" 

80 INPUT E 

90 IF E=0 THEN 130 

100 LET K=((D-E)'2/E) 

110 LET J=J+K 

120 G0TO 50 

130 PRINT"CHI-QUADRAT="5J 

140 PRINT"srs#33 34244444443 

150 PRINT"TIPPE 1 FUER EINE ERNEUTE BERECHNUNG," 
155 PRINT"O FUER PROGRAHMENDE EIN" 


15 


160 INPUT L 
170 IF L=1 THEN 190 
180 STOP 
190 PRINT 
200 GOTD 40 
210 END 
READY. 


Probelauf: 


DIE RECHNUNG WIRD BEENDET, WENN DU 
BEI DEN VORAUSSICHTLICHEN HAEUFIGKEITEN 
EINE 0 EINGIBST. 
BEOBACHTETE HAEUFIGKEITEN 
10 
VORAUSSICHTLICHE HAEUFIGKEITEN 
10 
BEOBACHTETE HAEUFIGKEITEN 
d 
VORAUSSICHTLICHE HAEUFIGKEITEN 


0 
CHI-QUADRAT= 0 

FERFLEFTRIRI KEN F 

TIPPE 1 FUER EINE ERNEUTE BERECHNUNG, 
0 FUER PROGRANMENDE EIN 


Kreis, welcher von 


3 Punkten 
bestimmt ist 


Kreis, welcher von 3 Punkten bestimmt ist 

Der Anwender gibt drei nicht-colineare Punkte ein und das Programm 
antwortet mit dem Mittelpunkt und dem Radius des Kreises, welcher 
somit erzeugt wird. 





Formel: 
_Kr2- Kı —. 

yo =,_Nı Xo =Kı - NıYo 

r= (X3 - X0)’+ (Y3 — Yo)? 

Kı= (Kr —-Xı) &+X) + r-Yı)(Y2 +Yı) 
2(X2- Xı) 

Kı= (s - Aı)ds + Xı) + (Y3 - Yılla3 + Yı) 
2(X3 — Xı) 

m=&-Hh | meh 

X2—-Xı X3-Xı 
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18 


Listing: 
READY. 


23 


3 4 


REM DIESES PROGRAMM ERRECHNET DEN MITTELPUNKT 
REM UND DEN RADIUS EINES KREISES VON DEM 

REM 3 NICHT-COLINEARE PUNKTE BEKANNT SIND. 
PRINT"EINGABE VON X1,Y1 


40 INPUT X1,Y1 
30 PRINT"EINGABE VON X2,Y2 
60 INPUT X2,Y2 
70 PRINT"EINGABE VON X3,Y3 
80 INPUT X3,Y3 
90 LET A=s(Y2-Yi)/(X2-X1) 
100 LET B=(Y3-Y1)/(X3-X1) 
110 LET C=t(X2-X1)#(X2+X1))+CCY2-Yi)s(Y2+Y1)) 
120 LET D=C/(2#(X2-X1)) 
130 LET E=((X3-X1)#(X3+X1))+((Y3-Yl)#(Y3+Y1)) 
140 LET F=E/(2#(X3-X1)) 
150 LET YO={F-D)/(B-A) 
160 LET X0=F-(BxY0) 
170 LET R=5QR{(X3-X0) *2+(Y3-Y0)"2) 
180 PRINT"KREISMITTELPUNKT X0,Y0 = "3X05","sYo 
1970 PRINT"RADIUS R = "5R 
200 PRINT 
210 PRINT"TIPPE 1 FUER EINE ERNEUTE RECHNUNG EIN. 
215 PRINT"O WENN DU FERTIG BIST. 
220 INPUT L 
230 IF L=1 THEN 250 
240 STOP 
250 PRINT 
240 G0TO 39 
270 END 
READY. 
Probelauf: 


EINGABE VON X1,Y1 
EINGABE VON X2,Y2 


EINGABE VON X3,Y3 


6 4.5 


KREISMITTELPUNKT X%0,Y0 = -1.25000001, 17.75 
RADIUS R= 195.1038075 


TIPPE 1 FUER EINE ERNEUTE RECHNUNG EIN. 
0 WENN DU FERTIG BIST. 
d 


BREAK IN 240 
READY. 


Kreisabschnitte 


Kreis-Abschnitte 

Dieses Programm berechnet die verschiedenen Parameter, das Träg- 
heitsmoment, das polare- und das Flächenträgheitsmoment innerhalb 
eines Kreisabschnittes. 





Formel: 
CIRCULARSECTON 1= 2% = 
_ md 
2 


wobei I+J = inch* und A = inch? 


Listing: 
READY. 


10 REM KREISABSCHNITTE 

15 REM DIESES PROGRAMM ERRECHNET DIEPARAMETER 
20 REM IM ZUSAMMENHANG MIT KREISABSCHNITTEN. 
30 PRINT"RADIUS" 

40 INPUT R 

0 LET P=3.14159 

60 LET D=2#R 

70 LET I=(Px(D"4))/64 
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20 


80 LET J=I#2 
90 LET A=(Px(D"2))/4 
100 PRINT"TRAEGHEITSMOMENT=";I 
110 PRINT"POLARES TRAEGHEITSAONENT=",.J 
120 PRINT"FLAECHE DES ABSCHNITTES="5A 
130 PRINT" ker" 
140 PRINT"TIPPE 1 FUER EINE ERNEUTE BERECHNUNG," 
145 PRINT"O FUER DAS FROGRAMMENDE EIN." 
150 INPUT L 
160 IF L=1 THEN 180 
170 STOP 
180 PRINT 
170 G0T030 
200 END 
READY. 


Probelauf: 


RADIUS 

J 

TRAEGHEITSNOMENT= 490.873439 
POLARES TRAEGHEITSMOMENT= 981.744875 
FLAECHE DES ABSCHNITTES= 78.5397501 
RR ke 
TIPPE 1 FUER EINE ERNEUTE BERECHNUNG, 
0 FUER DAS PROGRAMHENDE EIN. 

0 


BREAK IN 170 
READY. 


Verbundene 
Mengen 


Verbundene Mengen 
Dieses Programm wird für einen auf einem Konto angelegten Grund- 


betrag angewendet, welches sich ohne weitere Einlagen periodisch ver- 
zinst. 





Formel: 
X=Y(i+nY N= re) 
Y=X(1+n-Y L=YU+D'-D 


wobei: N = Anzahl der Zeit-Perioden 
| = Zins-Rate (dezimal), L = Zinsen 
Y = gegenwärtiger Wert 
X = zukünftiger Wert 


Listing: 


10 REM VERBUNDENE MENGEN 

20 PRINT"ERWUENSCHTES GUTHABEN (1) 

30 PRINT"GEGENWAERTIGES GUTHABEN (29" 

AQ PRINT"ZINSEN (3)" 

50 PRINT"DURCHSCHNITTLICHE ZINSRATE(DEZIMAL)(4I" 
60 PRINT"ANZAHL DER ZEITPERIODEN (IN JAHREN) (5)" 
?0 PRINT"TIPPE EINEN WERT ZWISCHEN 1 UND 5 EIN." 
80 INPUT A 

+0 ON A GOTO 100,180,220,280,340 

100 GOSUB 410 

110 GOSUB 440 

120 GOSUR 470 

130 LET X=Y#((1+1) N) 

140 PRINT"ZUKUENFTIGES GUTHABEN=";,X 

150 GOTD 390 

160 GOSUB 500 
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22 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
270 
300 
310 
320 
330 
340 
350 
360 
370 
380 
370 
400 
401 
402 
403 
404 
405 


410 
420 
430 
44) 
450 
460 
470 
480 
490 
>00 
310 
320 
230 


GOSUB 440 

GOSUB 470 

LET Y=X/t(1+D)°’W 
PRINT"GEGENWAERTIGES GUTHABEN="5Y 
GOTO 390 

GOSUB 410 

GOSUB 440 

GOSUB 470 

LET L=Y#(((1+D)’N)-1) 
PRINT"ZINSEN=";L 

GOTO 390 

GOSUB 410 

GOSUB 500 

GOSUB 470 

LET I=((X/ND O1 /ND-1 
PRINT"ZINSRATE(DEZIMAL)="51 

GOTO 390 

GOSUB 500 

GOSUB 410 

GOSUB 440 

LET N=(LOGX/Y)D/CLOGCIHT)) 
PRINT"ANZAHL DER ZEITPERIODEN(IN JAHREN)" SN 
PRINT 

PRINT"TIPPE 1 FUER EINE ERNEUTE BERECHNUNG," 
PRINT"O FUER DAS PROGRAMNENDE EIN." 
INPUT L 

IF L=1 THEN 405 

5ToPp 

PRINT 

G0TO 70 

PRINT"GEGENWAERTIGES GUTHABEN="; 
INPUT Y 

RETURN 

PRINT"ZINSRATE (DEZINMAL)"; 

INPUT I 

RETURN 

PRINT"ANZAHL DER ZEITPERIODEN (IN JAHREN)="; 
INPUT N 

RETURN 

PRINT"ZUKUENFTIGES GUTHABEN="; 
INPUT X 

RETURN 

END 


Probelauf: 


ERWUENSCHTES GUTHABEN (1) 

GEGENWAERTIGES GUTHABEN (2) 

ZINSEN (3) 

DURCHSCHNITTLICHE ZINSRATE(DEZIMAL) (4) 

ANZAHL DER ZEITPERIODEN (IN JAHREN) (5) 

TIPPE EINEN WERT ZWISCHEN 1 UND 5 EIN. 
1 

GEGENWAERTIGES GUTHABEN= 1000 

ZINSRATE (DEZIMAL) „03 

ANZAHL DER ZEITPERIODEN (IN JAHREN)= 5 

ZUKUENFTIGES GUTHABEN= 1159.27408 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG, 
0 FUER DAS PROGRANMENDE EIN. 
1 


TIPPE EINEN WERT ZWISCHEN 1 UND 5 EIN. 
2 

ZUKUENFTIGES GUTHABEN= 100000 

ZINSRATE (DEZIMAL) „05 

ANZAHL DER ZEITPERIODEN (IN JAHREN)= 20 

GEGENWAERTIGES GUTHABEN= 37688.9483 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG, 
0 FUER DAS PROGRAMMENDE EIN. 
1 


TIPPE EINEN WERT ZWISCHEN 1 UND 5 EIN. 
3 

GEGENWAERTIGES GUTHABEN= 1000 

ZINSRATE (DEZIMAL) „03 

ANZAHL DER ZEITPERIODEN (IN JAHREND= 5 

ZINSEN= 159.274075 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG, 
0 FUER DAS PROGRANMENDE EIN. 
1 


TIPPE EINEN WERT ZWISCHEN 1 UND 5 EIN. 
a 
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24 


GEGENWAERTIGES GUTHABEN= 1000 

ZUKUENFTIGES GUTHABEN= 2000 

ANZAHL DER ZEITPERIODEN (IN JAHREN)= 5 

ZINSRATE(DEZIMAL)= „148698359 
.1486498359 


TIPPE 1 FVER EINE ERNEUTE BERECHNUNG, 
0 FUER DAS PROGRAMMENDE EIN. 
1 


TIPPE EINEN WERT ZWISCHEN 1 UND 5 EIN. 

3 s 
ZUKUENFTIGES GUTHABEN= 2000 

GEGENWAERTIGES GUTHABEN= 1000 

ZINSRATE (DEZIMAL) „03 

ANZAHL DER ZEITPERIODEN(IN JAHREN) 23.4497722 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG, 
0 FUER DAS FROGRAMMENDE EIN. 
d 


BREAK IN 404 


Koordinaten- 








translation 


Koordinaten-Übertragung oder deren Rotation 


Mit diesem Programm wird die rechtwinklige Koordinaten-Über- 
tragung und / oder die jeweilige Rotation berechnet. Der Ursprung 
wird von (0,0) auf einen neuen Punkt (X,Y) übertragen und die X,Y- 
Achsen werden um einen Winkel A gedreht, damit sich die neuen 
Achsen X!,Y1 ergeben. 


Formel: 





Listing: 


10 REM 
15 REM 
17 REN 
18 REM 
19 REM 
20 REM 
21 REM 
22 REM 
23 REM 
24 REM 


Koordinatenübertragung und/ 
oder deren Rotation 


Pu 
of 


x! 


X'=(& -Xo)Cos a + (Y - Yo)Sin «a 
Y!=- (& - XoSina + Y - Yo)Cos «& 


COORDINATENTRANSLATION 

DIESES PROGRAMM ERECHNET DIE RECHTWINKLIGE 
COORDINATEN-UEBERTRAGUNG UND/ODER DIE 
JEWEILIGE ROTATION. 

DER ORGINALURSPRUNG WIRD AUF EINEN NEUEN 
PUNKT UEBERTRAGEN. WENN EIN VERDREHUNGS- 
WINKEL EINGEGEBEN WIRD ERGEBEN SICH NEUE 
ACHSEN(X1,Y1). 

soMIT ERHALT EIN PUNKT DES ALTEN COORDINATEN- 
SYSTEMS EINE NEUE STANDORTANGABE(X2,Y2). 


25 PRINT 
30 PRINT"VERDREHUNGSWINKEL(GRAD)="; 
a0 INPUT A 


0 LET 


B=(A*x3.14157)/180 


60 PRINT"NEUE URSPRUNGSCOORDINATEN (X0,YO)=": 

70 INPUT X,Y 

80 PRINT"ALTE COORDINATEN DER DATENANGABE(X1,Y1)=": 
?0 INPUT F,C 

100 LET Z=F-X 

110 LET W=C-Y 


25 


26 


120 LET B=(Z#C0S(RB))+(WxSIN(B)) 
130 LET E=-(Z#SIN{B))+(W*C0S(B)) 
{40 PRINT 
150 PRINT"VORGESCHRIEBENE VERDREHUNG="sA 
160 PRINT"NEUE COORDINATEN DER DATENANGABE" 
170 PRINT"X2="5D 
180 PRINT"Y2="5sE 
190 PRINT 
200 PRINT"TIPPE 1 FUER EINE ERNEUTE BERECHNUG," 
205 PRINT"O FUER DAS PROGRAMMENDE EIN. 
210 INPUT L 
220 IF L=1 THEN 240 
230 STOP 
240 PRINT 
250 G60T0 30 
260 END 
READY. 


Probelauf: 


VERDREHUNGSWINKEL (GRAD)= 45 
NEUE URSFRUNGSCOORDINATEN (X0,YO)= 2 2 
ALTE COORDINATEN DER DATENANGABE(X1,Y1)= 1 2 


VORGESCHRIEBENE VERDREHUNG= 45 
NEUE COORDINATEN DER DATENANGABE 
x2=-.70710725 

Y2= „707106312 


TIPPE 1 FUER EINE ERNEUTE BERECHNUG, 
0 FUER DAS PROGRANMENDE EIN. 
d 


BREAK IN 230 
READY. 





Craps 


Würfelspiel 


Die 
Das 


folgende Spiel-Nachbildung entspricht der eines Würfelspiels. 
Würfelspiel wird mit zwei Würfeln gespielt. Der Sinn des Spieles 


besteht darin, beim ersten Wurf eine 7 oder eine 11 zu würfeln, oder 
die folgenden Würfe dementsprechend anzugleichen. Wenn Sie beim 
ersten Wurf eine 2, 3, oder 12 würfeln, verlieren Sie automatisch. Sie 
verlieren ebenfalls, wenn Sie zum Ausgleich eine 7 würfeln. 


Listing: 


REM CRAPS 

REM FOLGENDES PROGRAMM BILDET DAS SPIEL 
REM VON CRAPS NACH. 

PRINT"MOECHTEST DU DIE SFIELREGELN SEHEN" 
PRINT "TAFPE Ja EIN.” 

PRINT"KEINE SPIELREGEL! TIPPE NEIN EIN" 
INPUT R$ 

IF R$="JA" THEN 90 

IF R$="NEIN" THEN 140 

PRINT"NICHT ERLAUBTE EINGABE! 

GOTO 30 

FRINT"EINE 7 ODER EINE 11 BEIM ERSTEN WURF 


2 FRINT"GEWINNT. DU KANNST AUCH GEWINNEN BEI 


PRINT"WUERFEN VON 4,5,6,8,9,10 UND DEMSELBEN" 
FRINT"WURF NOCHMALS, BEVOR DU EINE 7 WUER- 
PRINT"FELST." 

PRINT"WENN DER ERSTE WURF EINE 2,3 ODER EINE 
FRINT"12 IST, HAST DU AUTOMATISCH VERLOREN." 
PRINT 

PRINT 

LET J=0 

GOSUB 460 

LET DiI=N 

GOSUB 450 

LET D2=N 

LET D3=Di+D2 
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200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
319 
320 
330 
340 
350 
360 
365 
370 
380 
390 
400 
410 
420 
425 
427 
430 
440 
445 
450 
460 
470 
480 


LETJ=J+H1 

IF J=1 THEN 260 

IF D3=D4 THEN 420 

IF D3=7 THEN 440 

PRINT"DEIN WURF IST EINE"5D3 

GOTO 150 

IF D3=7 THEN 320 

IF D3=2 THEN 340 

IF D3=3 THEN 340 

IF D3=12 THEN 340 

IF D3=11 THEN 320 

LET D4=D3 

GOTO 240 

PRINT"DEIN WURF IST EINE",D3,"DU HAST GEWONNEN" 
G0OTO 350 

PRINT"DEIN WURF IST EINE"5D3,"DU HAST VERLOREN" 
PRINT 

PRINT"NOCH EIN SPIEL? TIFPE J EIN, FALLS" 
PRINT"NICHT TIPPE N EIN 

INPUT L$ 

IF L$="J" THEN 400 

stop 

PRINT 

GOTO 30 

PRINT"DEIN WURF IST EINE"SD3,"DU HAST" 
PRINT"GEWONNEN, WEIL DU DIE GLEICHE ANFANGS-" 
PRINT"ZAHL GEWUERFELT HAST." 

GOTO 350 

PRINT"DEIN WURF IST EINE"SD3,"TUT MIR" 
PRINT"AUSGESPROCHEN LEID; DU HAST VERLOREN" 
GOTO 350 

LET N=1+INT(6*+RND(1)) 

RETURN 

END 


READY. 
Probelauf: 


DEIN WURF IST EINE 6 

DEIN WURF IST EINE 10 

DEIN WURF IST EINE 7 

DEIN WURF IST EINE ?TUT MIR 
AUSGESPROCHEN LEID, DU HAST VERLOREN 


NOCH EIN SPIELT? TIPPE J EIN, FALLS 
NICHT TIPPE N EIN 
J 


MOECHTEST DU DIE SPIELREGELN SEHEN 
TIPPE JA EIN. 

KEINE SFIELREGEL! TIPPE NEIN EIN 
NEIN 


DEIN WURF IST EINE 3DU HAST VERLOREN 
NOCH EIN SPIEL? TIPPE J EIN, FALLS 
NICHT TIPFE N EIN 

J 

MOECHTEST DU DIE SPIELREGELN SEHEN 
TIPPE JA EIN. 

KEINE SPIELREGEL! TIPPE NEIN EIN 
NEIN 

DEIN WURF IST EINE I11DU HAST GEWONNEN 
NOCH EIN SPIEL? TIPPE J EIN, FALLS 
NICHT TIPPE N EIN 

N 


BREAK IN 390 


Kurventabelle 


Kurven-Tabellen 





Dieses Programm erzeugt eine Serie von Daten-Angaben mit wel- 
chen der Anwender Kurven zeichnen kann. Die erzeugten Datenan- 
gaben liegen zwischen den Werten, welche für den Anfangswert und 
den Endpunkt für X gegeben werden. 

Die Schrittgröße kann durch die Verwendung eines Sprungbefehls 
in Verbindung mit dem FOR-Befehl geändert werden. Der Anwender 
muß die Gleichung der Kurve in Zeile 140 eingeben. 


29 


30 


Listing: 
READY. 


10 REM KURVENTABELLEN 
15 REM DIESES PROGRAMM ERZEUGT EINE SERIE VON 
20 REM DATEN-ANGABEN MIT WELCHER DER ANWENDER 
30 REM KURVEN ZEICHNEN KANN. DIE ERZEUGTEN DATEN 
40 REM LIEGEN ZWISCHEN DEN EINGEGEBENEN WERTEN 
45 REM VON X.FALLS EINE ANDERE SCHRITTWEITE ALS 
46 REM 1 BENOETIGT UIRD, SO MUSS DEN FOR-STATENENT 
47 REM EIN STEP-BEFEHL ZUGEFUEGT WERDEN. DIE 
48 REM FUNKTION WIRD IN ZEILE 140 EINGEFUEGT, WOBEI 
49 REM HIER I STATT DEM WERT X EINGEGEBEN WERDEN MUSS. 
70 PRINT"DER STARTWERT VON X="; 
80 INPUT X 
90 PRINT"DER ENDWERT VON X=": 
100 INPUT 4 
110 PRINT 
115 PRINT"TABELLE" 
120 PRINT"X", uyu 
130 FOR I=X TO 4 
140 LET Y= 
150 PRINT I,,Y 
160 NEXT I 
170 PRINT 
180 PRINT"TIPPE 1 FUER EINE ERNEUTE BERECHNUNG," 
185 PRINT"O FUER DAS PROGRAMNENDE EIN" 
190 INPUT L 
200 IF L=1 THEN 220 
210 STOP 
220 PRINT 
230 60T0 70 
240 END 
READY. 


Probelauf: 


DER STARTWERT VON X= 5 
DER ENDWERT VON X= 15 


TABELLE 
XY 

> 16 
6 18 
720 
8 22 
24 
10 26 
11 28 
12 30 
13 32 
14 34 
19 36 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 


BREAK IN 210 
READY. 


Wochentag- 
bestimmung 


Wochentag 

Dieses Programm berechnet den Wochentag (z.B. Montag) des einge- 
gebenen Datums. Das einzugebende Datum darf jedoch nicht vor dem 
Jahre 1753 liegen, aufgrund der Änderungen, welche durch die Um- 
stellung vom Julianischen auf den Gregorianischen Kalender bedingt 
ist. 





Listing: 


READY. 


10 REM DIESES PROGRAMM ERRECHNET DEN WOCHENTAG 
15 REM EINES BESTIMMTEN DATUMS. DAS DATUM MUSS 
20 REM NACH 1752 SEIN. 
30 LET J$(1)="50ONNTAG" 
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40 
so 
60 
70 
80 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
1970 
200 
210 
220 
230 
240 
250 
260 
270 
280 
270 
300 
310 
320 
330 
340 
350 
360 
370 
REAL 


LET J$(2)="MONTAG" 
LET J$(3)="DIENSTAG" 
LET J$(4)="MITTWOCH" 
LET J$t5)="DONNERSTAG" 
LET J$(6)="FREITAG" 
LET JHC7)="SAMSTAG" 
PRINT"EINGABE DES TAGES(T), MONATSCMIUND DES JAHRES(CJI" 
INPUT T,M,.J 
IF J>1752 THEN 150 
PRINT"DIE JAHRESANGABE MUSS UEBER 1752 SEIN. 
GOTO 100 
LET K=INT(0.6+(1/M)) 
LET L=J-K 
LET O=Mr12xk 
LET P=L/100 
LET ZI=INT(P/4) 
LET Z2=1INT(P) 
LET Z3=INT((5*L)/4) 
LET Z4=INT(13*(0+1)/5) 
LET Z=24+23-22+213T-1 
LET Z=(Z-(?#1INTtZ/7))) +1 
PRINT"DER WOCHENTAG IST ",J$(Z) 
FRINT 
PRINT"FUER DIE NAECHSTE DATENEINGABE TIPFE JA 
PRINT",WENN KEINE ERWUENSCHT TIPPE NEIN EIN. 
INPUT L$ 
IF L$="JA" THEN 340 
IF L$="NEIN" THEN 360 
FRINT"UNERLAUBTE EINGABE" 
b0T0 279 
PRINT 
GOTO 39 
FRINT"AUFWIEDERSCHAUEN" 
END 
Y. 


Probelauf: 


EINGABE DES TAGES(CT), MONATSCHIUND DES JAHRES(J) 


1 2 


1979 


DER WOCHENTAG IST DONNERSTAG 


FUER DIE NAECHSTE DATENEINGABE TIPPE JA 
„WENN KEINE ERWUENSCHT TIPPE NEIN EIN. 
JA 


EINGABE DES TAGES(T), MONATS(MIUND DES JAHRES(J) 
I 12 1977 

DER WOCHENTAG I5T MONTAG 

FUER DIE NAECHSTE DATENEINGABE TIPFE JA 

„WENN KEINE ERWUENSCHT TIPPE NEIN EIN. 

NEIN 

AUFWIEDERSCHAUEN 


READY. 


Determinante 
und Reziprok- 


wert einer 
2x2 Matrix 


Determinante und Reziprokwert einer 2 x 2 Matrix 
Der Computer berechnet den Reziprokwert und den Determinanten 
einer 2x 2 Matrix, welche vom Anwender eingegeben wird. 











Listing: 
READY. 


10 REM DETERMINANTE UND REZIPROKWERT VON EINER 2X2 MATRIX 
15 REM DIESES PROGRAMM ERZEUGT DIE DETERMINANTE 

20 REM UND DEREN KEHRWERT VON EINER 2X2 MATRIX 

30 PRINT"EINGABE VON All UND A12"; 

40 INPUT A,B 
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34 


50 PRINT"EINGABE VON A21 UND A22": 
60 INPUT C,D 

70 LET E=(D#*A)-(B+C) 

80 LET F=D/E 

90 LET G=-B/E 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 
270 
280 


LET H=-C/E 

LET I=A/E 

PRINT"ORGINAL-NATRIX" 

PRINT A,B 

PRINT C,D 

PRINT 

PRINT"REZIPROKWERT DER MATRIX" 
PRINT F,6 

PRINT H,I 

PRINT 

PRINT"DIE DETERMINANTE ="sE 

PRINT 

PRINT"TIPPE 1 FUER EINE ERNEUTE BERECHNUNG," 
PRINT"O FUER DAS PROGRANNENDE EIN." 
INPUT L 

IF L=1 THEN 30 

STOP 

PRINT 

GOTO 30 

END 


READY. 


Probelauf: 


ORGINAL-MATRIX 


3.3 
23 


REZIPROKWERT DER MATRIX 


1 3 
2-5 


DIE DETERMINANTE =-1 


Determinante 
und Reziprok- 
wert einer 
3x3 Matrix 


Determinante und Reziprokwert einer 3x 3 Matrix 














Der Anwender gibt seine Originalmatrix ein und der Computer ant- 
wortet mit der Determinante und dem Reziprokwert. 


Formel: 


MATRK = . e DET A = AıBeC3 + BıC2As + 
a CıB3A2 — CıB2A3 — CaBs3Aı — CaA2Bı 


As Bas Ca 
aı Bı Yı 
Inverse Matrix A= | ß2 ya 
a3 B3 'y3 


aı = (BaC3 — BsC>)/DET A 
o2 = (AsC2 — A2Cs)/DET A 
a3 = (ArB3 — AsB2)/DET A 
ßı = (BsCı — BıC3)/DET A 
ß2 = (AıCa — AsCı)/DET A 
ß3 = (AsBı — AıBs)/DET A 
yı = (BıC2 — BaCı)/DET A 
y2 = (AsCı — AıCa)/DET A 
ya = (AıB2 — AsBı)/DET A 
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Listing: 


READY. 


REAL 


REM DETERMINANTE UND REZIPROKWERT VON EINER 3X3 MATRIX 
REM DIESES PROGRAMM ERZEUGT DIE DETERMINANTE 
REM UND DEN KEHRWERT VON EINER 3X3 MATRIX 
PRINT"EINGABE DER 3X3 MATRIX" 

INPUT AYB,C,D,E,F,6,H,l 
REM ERRECHNETE DETERMINANTE VON 3X3 MATRIX 
LET M=(A+Ex])+(B#F&G)+(C+H*D) 
LET N=M-(C#ExG)-(F*H&A)-(IxD&B) 
REM ERRECHNETER REZIPROKWERT 
LET O=((E&I)-(H&F))/N 
LET P=((G#F)-(D#I))/N 

LET Q=((D#+H)-(G#E))/N 

LET R=((H&C)-(B&I))/N 

LET $=((A#1)-(6*C))/N 

LET T=((G6*B)-(AsH))/N 

LET U=((B#F)-(E#C))/N 

LET V=((D*C)-(A#F))/N 

LET W=t(A#E)-(D*B))/N 
PRINT"ORGINALNATRIX" 

PRINT A,B,C 

PRINT D,E,F 

PRINT 6,H,l 

PRINT 

PRINT"DIE DETERMINANTE=":N 

PRINT 

PRINT"DER REZIFROKWERT DER MATRIX" 

PRINT O,R,U 

PRINT P,S,V 

PRINT Q,T,4 

PRINT 

PRINT"TIPPE 1 FUER ERNEUTE BERECHNUNG EIN" 
PRINT"TIPFE 0 FUER FROGRAMNENDE EIN" 
INPUT L 

IF L=1 THEN 20 

STOP 

END 
I. 


Probelauf: 


EINGABE DER 3X3 MATRIX 
142242351 
ORGINALNATRIX 
142 


ii > 
— tr 


2 
35 
NIE DETERMINANTE= & 


DER REZIPROKWERT DER MATRIX 

18 

665666567 - 833333333 .333333333 
eg 1, 1er hehhhhhr 


TIFPE 1 FÜER ERNEUTE BERECHNUNG EIN 
TIPPE 0 FUER PROGRAMMENDE EIN 
0 


BREAK IN 320 
READY. 





Fakultät 


Dieses Programm berechnet mit Hilfe von einer Kettenmultiplika- 
tion die Fakultät von X. 


Formel: X - DK -2)..®-X+]) 


Listing: 


READY. 


10 REM FAKTOREN 

15 REM DIESES PROGRAMM BERECHNET DIE FAKULTAET 
20 REM VON X MIT HILFE EINER KETTEN (MEHRFACH-) 
25 REM MULTIPLIKATION 

30 PRINT"X="5 

a0 INPUT X 


37 
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»0 LET Z=1 
60 FOR I=1 TO X 
’0 LET Z=Z#1 
80 NEXT I 
90 PRINT"X="5X,"X1="527 
100 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
110 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
115 INPUT L 
120 IF L=1 THEN 140 
130 STOP 
140 PRINT 
150 60T0 30 
160 END 
READY. 


Probelauf: 


X= 9 
x= 5X!= 120 
GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


= 7 
x= ?Xl= 5040 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 


GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


{= 18 
X= 18X!= 6.40237371E+15 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
d 


BREAK IN 130 
READY. 


„rbonacci‘“ 
Zahlen 


Fabonacci-Zahlen 

Mit diesem Programm wird eine Tabelle für Fabonaccizahlen von den 
ersten zwei Gliedern an berechnet, welche der Anwender eingibt. Er 
kann auch die maximale Anzahl der Gleider nennen. 


Formel: 


fi= erstes Glied in der Reihenfolge 
zweites Glied = fi —2 


(Für 


beliebige zwei Glieder ist das zweite Glied = fi —1) 


Listing: 


READ 


Y. 


REM FIBONACCI-ZAHLEN 
REM DIESES PROGRAMM BERECHNET EINE TABELLE 
REM VON FIBONACCI-ZAHLEN 
PRINT"EINGABE DER ERSTEN ZAHL" 
INPUT A 
PRINT"EINGABE DER ZWEITEN ZAHL" 
INPUT B 
PRINT"MAXIMALE ANZAHL DER ZAHLEN=" 
INPUT N 
PRINT 
PRINT"TABELLE VON FIBONACCI-ZAHLEN" 
PRINT"ZAHLENNUMMER" ,"FIBONACCI-ZAHL" 
LET K=1 
PRINT Ky,A 
LET K=2 
PRINT K,,B 
LET K=K+1 
LET Q=A+B 
PRINT K,,Q 
LET A=B 
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170 LET B=@ 

200 IF K>=N THEN 220 

210 GOTO 150 

220 PRINT"MAXIMALE ANZAHL DER GLIEDER ERREICHT" 
230 PRINT 

240 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
245 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 

250 INPUT L 

260 IF L=1 THEN 280 

270 STOP 

280 PRINT 

270 60T0 20 

300 END 
READY. 


Probelauf: 


EINGABE DER ERSTEN ZAHL 
1 

EINGABE DER ZWEITEN ZAHL 
l 

MAXIMALE ANZAHL DER ZAHLEN= 
10 


TABELLE VON FIBONACET-ZAHLEN 
ZAHLENNUMMERFIBONACCIT- ZAHL 
14 


on ss Oo= EN Je od NS 


7 34 
10 55 
MAXIMALE ANZAHL DER GLIEDER ERREICHT 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 


GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


40 


EINGABE DER ERSTEN ZAHL 

27 

EINGABE DER ZWEITEN ZAHL 
763 

MAXIMALE ANZAHL DER ZAHLEN= 


J 


TABELLE VON FIBONACCI-ZAHLEN 
ZAHLENNUMMERFIBONACCI-ZAHL 

1 27 

2 963 

3 970 

4 19753 

> 2743 

MAXIMALE ANZAHL DER GLIEDER ERREICHT 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
0 


BREAK IN 270 
READY. 


Erste Ableitung 


Erste Ableitung 

Der Anwender muß in Zeile 280 die zur Ableitung bekannte Glei- 
chung einsetzen. Der Computer wird dann die erste Ableitung der ein- 
gegebenen Gleichung herleiten. 





Formel: x>0 


fı@p= Ja) Na -Ar/2) 
AXx 
Listing: 
READY. 
10 REM ERSTE ABLEITUNG 
15 REM DIESES PROGRAMM ERSTELLT DIE ERSTE ABLEITUNG 
20 REM VON EINER EINGEGEBENEN FUNKTION 


41 


42 


30 PRINT"WERT VON X="; 

40 INPUT X 

0 LET Y=X 

60 LET Z=(X#(1E-04))/2 

70 LET W=Xt+Z 

80 LET V=X-7 

+0 LET X=U 

100 GOSUB 280 

110 LET A=P 

120 LET X=V 

130 GOSUB 280 

140 LET B=P 

150 LET X=Y 

160 GOSUB 280 

170 LET C=P 

180 LET F=(A-B)/(2*Z) 

170 PRINT"WENN X="SY, "DANN IST F(X)="; 
200 PRINT"UND F’(X)="5F 

210 PRINT 

220 PRINT"GEBE 1 FÜUER EINE NEUE BERECHNUNG EIN" 
225 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
230 INPUT L 

240 IF L=1 THEN 260 

250 5TOP 

260 PRINT 

270 G0T0O 30 

280 LET F=X"2 

270 RETURN 

300 END 
READY. 


Probelauf: 

WERT VON X= 109 

WENN X= 10DANN IST F(X)= 120 
UND F’(X)= 19.9999809 


GEBE 1 FUER EINE NEUE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
1 


WERT VON X= 20 
WENN X= 20DANN IST F(X)= 420 
UND F’(X)= 39.99979618 


GEBE I FUER EINE NEUE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
d 


BREAK IN 250 
READY. 


Gamma-Funktion 
und verallgemei- 
nerte Fakultät 


Gamma-Funktion und verallgemeinerte Fakultät 
Dieses Programm berechnet beide, die Gamma-Funktion und die 
verallgemeinerte Fakultät über eine polinomische Annäherung. 








Formel: o 
TD=[t-te td 


0 


T&K)E(1+AıY) +A:M%...... As(Y)Y)Z 


wobei Y = der Fakultäts-Teil von X 
wobei Z = (X—-1) (X—2) ......... (X—N) 
undX—- N=1+Y 


Listing: 
READY. 


10 REM GAMMAFUNKTION UND VERALLGEMEINERTE FAKULTAET 
15 REM DIESES PROGRAHNM ERZEUGT UEBER DIE 

20 REM POLINOMISCHE ANNAEHERUNG DIE GANMAFUNKTION 
25 REM UND DIE VERALLGEMEINERTE FAKULTAET 

A0 LET A=.57717 

30 LET B=.98821 

60 LET C=.89705 
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44 


70 LET D=.91821 
80 LET E=.7567 
70 LET F=.4822 


100 
119 
120 
130 
140 
150 
160 


170 


180 
1970 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
435 
AAO) 
450 
460 
470 
480 


LET 6=.19353 

LET H=.03587 

PRINT"GEBE 6 FUER DIE GANMAFUNKTION ODER F" 
PRINT"FUER DIE VERALLGEMEINERTE FAKULTAET" 
INPUT A$ 

IF A$="6" THEN 190 

IF A$="F" THEN 300 

PRINT"NICHT VEREINBARTE EINGABE" 

GOTD 120 

PRINT"EINGABE VON X" 

INPUT X 

LET K=X 

LET K=k-1 

IF K>=0 THEN 260 

PRINT"X MUSS GLEICH ODER GROESSER ALS 1 SEIN" 
60TO 190 

GOSUB 490 

IFCX-1)=1INTCX-1) THEN 410 

GOSUB 570 

GOTO 410 

PRINT"EINGABE VON X" 

INPUT X 

LET K=X 

IF K>=0 THEN 360 

PRINT"X MUSS GLEICH ODER GROESSER ALS 0 SEIN" 
6070 300 


GOSUB 490 

IF X=INT(X) THEN 390 

GOSUB 570 

PRINT X,"!=";K 

GOTO 420 

PRINT"GANMAC"SX,")="SK 

PRINT 

PRINT"GEBE J ZU EINER ERNEUTEN BERECHNUNG EIN" 


PRINT"GEBE N FUER DAS PROGRAMMENDE EIN" 
INPUT L$ 

IF L$="J" THEN 470 

5TOP 

PRINT 

GOTO 120 


490 LET J=l 
00 LET J=J#Kk 
„10 LET K=k-1 
320 IF K£1 THENS40 
30 60170500 
„40 LET L=K 
00 LET K=) 
60 RETURN 
70 LET Al=1rtA#L)+eBrtL"2))H(CrRtL"3)) 
380 LET AlsAl+tDrtL"A))HrtEreL"SIIHeFRIL"6)) 
70 LET AlsAlttG#tL"7))rcH#(L"8)) 
600 LET K=Al*k 
610 RETURN 
620 END 
READY. 


Probelauf: 


GEBE G FUER DIE GAMMAFUNKTION,ODER F 
FVUER DIE VERALLGEMEINERTE FAKULTAET EIN 
G 
EINGABE VON X 

J 
GAMNAC S)= 24 


GEBE J ZU EINER ERNEUTEN BERECHNUNG EIN 
GEBE N FUER DAS PROGRAMMENDE EIN 
J 


GEBE G FUER DIE GAMMAFUNKTION,DDER F 
FUER DIE VERALLGEMEINERTE FAKULTAET EIN 


F 

EINGABE VON X 
J 
y!= 120 


GEBE J ZU EINER ERNEUTEN BERECHNUNG EIN 
GEBE N FUER DAS PROGRAMMENDE EIN 
N 


BREAkK IN 460 
READY. 
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Gaußsche 
Wahrscheinlich- 
keitsfunktion 


Gauß’ sche Wahrscheinlichkeitsfunktion 
Mit diesem Programm wird die Gauß‘ sche Wahrscheinlichkeit von X 
berechnet. 








X? 


e— en 


Formel: 


A) = 


al 


Listing: 


READY. 


10 REM GAUSS’SCHE WAHRCHEINLICHKEITSFUNKTION 

15 REM DIESES PROGRAMM ERRECHNET DIE 

20 REM GAUSS’SCHE WAHRSCHEINLICHKEITSFUNKTION VON X 
30 PRINT"X="; 

a0 INPUT X 

0 LET A=EXP(-(X"2)/2) 

60 LET B=.398942 

70 LET C=B#A 

80 PRINT"FiX)=";C 

70 PRINT 

100 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
105 PRINT"GEBE 0 FUER DAS FROGRAMMENDE EIN" 

110 INPUT L 

120 IF L=1 THEN 140 


Probelauf: 


X= 3.2 
FiX)= 2.384085451E-03 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


Xen 
F(X)= 1.33830132E-04 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


i= 1.2 
FiX)= „174195918 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
Ö 


BREAK IN 130 
READY. 


Verallgemeinertes 
Mittel 

Verallgemeinertes Mittel 

Mit diesem Programm läßt sich das ‚„‚Verallgemeinerte Mittel’ berech- 
nen, welches dann gleich dem arithmetischen Mittel wird, wenn das 


vom Anwender eingegebene T gleich 1 ist und dann gleich dem harmo- 
nischen Mittel wird, wenn der Anwender — 1 eingibt. 








Formel: 


N 1 
M(T) = ( _L;s x jr where X > 0 
NKk=ı & 
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Listing: 


READ 


10 
20 
22 


READ 


Y. 


REM VERALLGEMEINERTES MITTEL 
REM DIESES PROGRAMNM ERRECHNET DAS VERALGEMEINERTE 
REN MITTEL. IST T=1 DANN WIRD DAS VERALGENEINERTE 
REM MITTEL NCT) GLEICH DEM ARITHETISCHEN MITTEL 
REM IST T=-1 DANN IST ESGLEICH DEM HARMONISCHEN 
REM MITTEL. 
LET J=0 
LET N=0 
PRINT"T="; 

INPUT T 
PRINT"EINGANGSWERT": 

INPUT X 

IF X=0 THEN 150 

LET J=J+(X*T) 

LET N=N+#1 

60TO 90 

LET G=(J/N)*(1/DD 

PRINT"VERALLGEHEINERTES MITTEL" 
"PRINT"NCT)="SGe"WOBEI T=":T 

PRINT 

PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 

INPUT L 

IF L=1 THEN 230 

STOP 

PRINT 

G0TO 50 

END 

Y. 


Probelauf: 


Ta 1 
EING 
EING 
EING 
EING 
EING 
EING 
EING 


ANGSWERT 
ANGSWERT 
ANGSWERT 
ANGSWERT 
ANGSWERT 
ANGSWERT 
ANGSWERT 


SID DS —-{ı 


VERALLGEMEINERTES MITTEL 
M(T)= 4.83333334WOBEI Ta 1 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


T=-1 
EINGANGSWERT 
EINGANGSWERT 
EINGANGSWERT 
EINGANGSWERT 
EINGANGSWERT 
EINGANGSWERT 
EINGANGSWERT 
VERALLGENEINERTES MITTEL 
MiTI= 3.09012876WOBEI T=-1 


SS MAIS DD nn Li 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
d 


BREAK IN 220 
READY. 


Geometrisches 
Mittel 

Geometrisches Mittel 

Dieses Programm berechnet das geometrische Mittel des vom Anwen- 


der eingegebenen Beispiels solange, bis für das Beispiel eine O einge- 
geben wird. 








Formel: 


Listing: 
READY. 


10 REM GEOMETRISCHES MITTEL 
15 REM DIESES PRORAMM ERRECHNET DAS GEOMETRISCHE 
16 REM MITTEL. NACH DEN ZAHLENEINGABEN WERDEN 
20 REM DIE LAUFENDEN EINGABEN UND MITTEL AUSGEDRUCKT. 
„0 LET Y=1 
60 LET N=0 
?0 PRINT"EINGABEWERT="5 
80 INPUT W 
»0 IF W=0 THEN 160 
100 LET N=N#+1 
110 LET Y=Yx*W 
120 LET 6=Y"(1/N) 
130 PRINT"ANZAHL DER EINGABEN=";N 
135 PRINT"LAUFENDE EINGABE=";W 
140 PRINT"LAUFENDES NITTEL=",6G 
150 G0T0 70 
160 PRINT 
170 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
175 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 
180 INPUT L 
1970 IF L=1 THEN 210 
200 STOP 
210 PRINT 
220 6070 50 
230 END 
READY. 


Probelauf: 


EINGABEUERT= 2 
ANZAHL DER EINGABEN= 
LAUFENDE EINGABE= 
LAUFENDES MITTEL= 


rs m 
—— 


EINGABEWERT= 5 

ANZAHL DER EINGABEN= 2 
LAUFENDE EINGABE= 5 
LAUFENDES MITTEL= 3.16227766 


EINGABEWERT= 7 

ANZAHL DER EINGABEN= 3 
AUFENDE EINGABE= 7 
AUFENDES MITTEL= 4.1212853 


EINGABEWERT= 0 

GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMNENDE EIN 

d 


BREAK IN 200 
READY. 


Geometrische 
Reihe 
Geometrische Reihe 


Nach der folgenden Information: Erstes Glied, Verhältnis der Glie- 
der und Anzahl der Glieder berechnet dieses Programm die geometri- 
sche Reihe. 








Formel: A,AR,AR?...,ARN-! 
Listing: 
READY. 


10 REM GEOMETRISCHE REIHE 

15 REM DIESES PROGRAMM ERRECHNET DIE WERTE UND 

18 REM IHRE SUMMEN VON EINER GEOMETRISCHEN REIHE. 
30 PRINT"ERSTES GLIED="; 

40 INPUT A 

»0 PRINT"VERHAELTNIS DER GLIEDER="; 

60 INPUT R 

70 PRINT"ANZAHL DER GLIEDER="; 

80 INPUT N 


51 


52 


70 PRINT"ZUR TABELLIERUNG TIPPE 1 EIN" 
95 PRINT"WENN NICHT TIPPE 0 EIN" 

100 INPUT C 

110 IF C=1 THEN 130 

120 6010150 

130 PRINT 

140 PRINT"GEOMETRISCHE REIHE” 

150 PRINT"GLIEDNUMMER" „"GLIEDWERT" 

160 LET J=0 

170 FOR I=0 TO N-1 

180 LET K=I+1 

190 LET L=A#(R’I) 

200 LET J=J+L 

210 IF C=1 THEN 230 

220 G0TO 240 

230 PRINT K,,L 

240 NEXT I 

250 PRINT"SUMME=";.J 

260 PRINT 

270 PRINT"GEBE 1 FUER EINE NEUE BERECHNUNG EIN" 
275 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
280 INPUT X 

270 IF X=1 THEN 310 

300 STOF 

310 PRINT 

320 GOTO 30 

330 END 
READY. 


Probelauf: 


ERSTES GLIED= 19 
VERHAELTNIS DER GLIEDER= 2 
ANZAHL DER GLIEDER= 10 
ZUR TABELLIERUNG TIPPE 1 EIN 
WENN NICHT TIPPE 0 EIN 

1 


GEOMETRISCHE REIHE 
GLIEDNUMMERGLIEDWERT 
ı 10 
2 20 
3 40 


4 80 

> 160 

6 320 

7 640 

8 1280 

7? 2560 

10 5120 
SUMME= 10230 


GEBE 1 FUER EINE NEUE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
v 


BREAK IN 300 
READY. 


Harmonische 
Mittel 





Harmonisches Mittel 

Dieses Programm berechnet das harmonische Mittel des vom An- 
wender eingegebenen Beispiels. Dies geschieht so lange, bis für das 
Beispiel eine O eingegeben wird. 


Formel: 


93 


54 


Listing: 
READY. 


10 REM HARMONISCHES MITTEL 
15 REM DIESES PROGRAMM ERZEUGT EIN HARMONISCHES 
20 REM MITTEL VON EINGEGEBENEN ZAHLEN 
30 LET Z=0 
40 LET N=0 
0 PRINT"EINGABE EINER ZAHL”; 
60 INPUT X 
70 IF X=0 THEN 130 
80 LET N=N+1 
0 LET Z=Z+(1/%) 
100 LET H=N/Z 
110 PRINT"N=";N,"EINGEGEBENE ZAHL="5X 
115 PRINT"LAUFENDES MITTEL="5H 
120 60T0 50 
130 PRINT 
140 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
145 PRINT"GEBE 0 FUER DAS PROGRANMMENDE EIN" 
150 INPUT L 
160 IF L=1 THEN 180 
1709 STOP 
180 PRINT 
170 G0T0O 30 
200 END 
READY. 


Probelauf: 


EINGABE EINER ZAHL 2 

N= IEINGEGEBENE ZAHL= 2 
AUFENDES MITTEL= 2 

EINGABE EINER ZAHL 9 

N= 2EINGEGEBENE ZAHL= 5 
LAUFENDES MITTEL= 2.85714285 
EINGABE EINER ZAHL ? 

N= 3EINGEGEBENE ZAHL= ? 
LAUFENDES MITTEL= 3.55932203 
EINGABE EINER ZAHL’ O 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMNENDE EIN 
d 


BREAK IN 179 
READY. 


Harmonische 
Harmonische Zahlen 


Dieses Programm berechnet die ersten ‚„N’’ harmonischen Zahlen, wo- 
bei ‚N‘ vom Anwender eingegeben wird. 





Formel: 


1,1+r172,1+172 +13, 1+1/72 +1/73 + 1/4, ... 
Listing: 


10 REM HARMONISCHE ZAHLEN 
15 REM DIESES PROGRAMM ERZEUGT HARMONISUHE ZAHLEN 
20 PRINT"MAXIMALE GLIEDZAHL" 
30 INPUT N 
40 LET K=V0 
0 LET D=0 
60 PRINT"GLIEDNUMMER","GLIEDWERT" 
70 FOR I=0 TON 
80 LET K=Iti 
0 LET C=1/K 
100 LET D=D+C 
110 PRINT K,,D 
120 NEXT I 
130 PRINT 
140 END 
READY. 
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Probelauf: 


MAXIMALE GLIEDZAHL 
25 
GLIEDNUNMERGLIEDUERT 
1 
2 1.5 
3 1.83333333 
4 2.08333333 
5 2.28333333 
b 2.45 
7 2.59285714 
8 2.71785714 
9 2.828964826 
10 2.92896825 
11 3.01987735 
12 3.10321068 
13 3.18013376 
14 3.25156233 
15 3.319229 
16 3.380729 
17 3.43955252 
18 3.49510808 
19 3.54773966 
20 3.59773966 
21 3.6453587 
22 3.69081325 
23 3.73429151 
24 3.77595818 
25 3.81595818 
26 3.85441972 


READY. 





Harmonische Reihen 

In diesem Programm werden nach der folgenden Information die 
Werte von A und B sowie der Unterschied und die Anzahl der. ge- 
wünschten Glieder berechnet. Der Wahl des Benutzers entsprechend 
kann eine Reihen-Tabelle aufgestellt werden. In jedem Fall wird die 
Summe der Gliederzahl angezeigt. 


Eorme: A —A_ 2 A 
OMER BB B+D,B+2D..B+(N- DD 








Listing: 
READY. 


10 REM HARMONISCHE REIHEN 
15 REM DIESES PROGRAMM ERZEUGT EINE SERIE VON HARMONISCHEN 
ZAHLEN 


30 PRINT"WERT VON A="; 

a0 INPUT A 

»0 PRINT"WERT VON B="; 

60 INPUT B 

70 PRINT"UNTERSCHIED="; 

80 INPUT D 

0 PRINT"ANZAHL DER GLIEDER="; 

100 INPUT N 

110 PRINT"ZUM DRUCKEN DER TABELLE TIPPE 1 EIN" 
115 PRINT"WENN NICHT GEBE 0 EIN." 
120 INPUT C 

130 IF C=1 THEN 150 

140 6010 1790 

150 PRINT"HARMONISCHE REIHE" 

160 PRINT"GLIEBNUMMER" ,"GLIEDWERT" 
170 LET J=0 

180 FOR I=0 TO N-1 

190 LET K=I+1 

200 LET L=A/(B+(I#D)) 
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210 LET JadtL 
220 IF C=1 THEN 240 
230 60T0 250 
240 PRINT K,,L 
250 NEXT I 
260 PRINT"SUMME="3J 
279 PRINT" #223 232" 
280 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
285 PRINT"GEBE 0 FUER DAS PROGRANHENDE EIN" 
290 INPUT X 
300 IF X=0 THEN 320 
310 STOP 
320 PRINT 
330 60T0 30 
340 END 
READY. 


Probelauf: 


WERT VON A= 10 
WERT VON B= 2 
UNTERSCHIED= 3 
ANZAHL DER GLIEDER= 20 
ZUM DRUCKEN DER TABELLE TIPPE 1 EIN 
WENN NICHT GEBE 0 EIN. 

1 
HARMONISCHE REIHE 
GLIEDNUMMERGLIEDWERT 

I 9 
2 

1.25 

«707070707 

„714285714 

208235294 

.J 
„434782607 
7 „384415385 
10 „344827586 
11 „3125 
12 „285714286 
13 „263157895 
14 „243902437 


on SI com EN Ze on DD 


19 2227272727 

16 „2127659957 

17 .2 

18 „188579245 

17 .178571429 

20 „1694971525 
SUMME= 14.407893 
ERRRRRRRRRER KKCR 
GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 

d 


BREAK IN 310 
READY. 


Kohlenstoff- 
verbrennung 


Kohlenstoffverbrennung 

Dieses Programm bildet die Verbrennung einer Kohlenstoffverbindung 
nach. Dabei wird die vollständige Verbrennung vorausgesetzt und die 
Wahl des überschüssigen Luftanteils ist verfügbar. 


Formel: 


AIR =1 + % EXCESS AIR/100 
O:.=C+S + H/4 - 0/2 

AF(MOLES) = 0:2(4.762)AIR 

AF(MASS) = 1.8094(AF MOLES)/.7507C + 0.063H 
+ 2.0045 + 0.875N + O 

TOTAL MOLES = 0:(4.762 AIR) + H/4 + 0/2 + N/2 
VOLUME % CO: = 100C/M 

VOLUME % SO: = 1005/M 

VOLUME % H:O = 100H/2M 

VOLUME % Oz = 100(AIR — 107/M 

VOLUME % N: = (100(@.762)AIR(02) + N/2)/M 
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Listing: 


READY. 


10 
15 


REM KOHLENSTOFFVERBRENNUNG 
REM DIESES PROGRANM ERECHNET DEN PROZENTSATZ DER 
PRODUZIERTEN 


REM KOHLENSTOFFVERBRENNUNG 
PRINT"WENN DU EINE ERKLAERUNG WILLST TIPPE JA" 
PRINT"WILLST DU KEINE ERKLAERUNG TIPPE NEIN" 
PRINT"EIN" 
INPUT I$ 
IF I$="JA" THEN 90 
IF I$="NEIN" THEN 130 
PRINT"UNERLAUBTE EINGABE" 
G0OTO 20 
PRINT"DER BETRAG DER VERSCHIEDENEN ELEMENTE" 
PRINT"MUSS EINGEGEBEN WERDEN. AUCH WENN EIN 
PRINT"BETRAG 0 IST." 
PRINT"EIN BEISPIEL: METHAN (CHA) MUSS EIN-" 
PRINT"GEGEBEN WERDEN WIE" 
PRINT"C,1,H,4,050,550,N50" 
PRINT 
PRINT"EINGABE VON KOHLENSTOFF(C), WASSER-" 
PRINT"STOFFCH), SAUERSTOFF(O), SCHWEFEL(S)," 
PRINT"UND STICKSTOFF(N)." 
PRINT"IN DIESER REIHENFOLGE EINGEBEN" 
INPUT C,H,0,5,N 
PRINT"EINGABE DES PROZENTUELLEN,VEBERSCHUESS-" 
PRINT"IGEN LUFTANTEILS. IST EIN ELEMENT NICHT" 
PRINT"NICHT VORHANDEN TIPPE 0 EIN." 
PRINT"EIN BEISPIEL: 34% ENTSPRICHT 34" 
INPUT E 
LET E=1+(E/100) 
LET 02=C+5+(H/4)-(0/2) 
LET A=02*+E#4.762 
LET A1=1.8094*A 
LET F=(.7507#C)+(.0633H)+(2.004#5) 
LET F=(.875%#N)+0+F 
LET Al=At/F 
LET M=A+rtH/4)+(0/2)+(N/2) 
LET C?=(C#100)/M 


270 
300 
310 
320 
330 
340 
345 
350 
359 
360 
370 
380 
370 
400 
410 
420 
430 
440 
450 
459 
460 
470 
480 
490 
00 
310 
320 
330 


LET 52=(5#100)/M 

LET H2=(H#+100)/(2#M) 

LET 03=(100#*(E-1)*02)7/M 

LET N2=(100#((3.762+E#02) +(N/2))) /M 

PRINT 

PRINT"LUFT-BRENNSTOFF-VERHAELTNIS IM BEZUG" 
PRINT"AUF DIE MOLEN="5A 
PRINT"LUFT-BRENNSTOFF-VERHAELTNIS IM BEZUG" 
PRINT"AUF DIE MASSEN="5AI 

PRINT"GESMTMOLEN DER HERSTELLUNG=";M 
PRINT"*FROZENTSATZ DES VOLUMENS DER PRODUKTE*" 
PRINT"KOHLENDYOXID=",C2, "2" 
FRINT"SCHWEFELDYOXID=",52,"%" 
PRINT"WASSER=",H2,"%" 
FRINT"SAUERSTOFF="5,03,"%" 
PRINT"STICKSTOFF=",N2,"%" 

PRINT"#*++*GESAMTE VERBRENNUNG VOAUSGESETZTHFH#" 
PRINT 

PRINT"ZUM VERSUCH DER NAECHSTEN VERBINDUNG" 
PRINT"TIPPE JA EIN. FUER FROGRANMENDE TIPPE" 
PRINT"TIPPE NEIN EIN 

INPUT L$ 

IF L$="JA" THEN 510 

PRINT"AUFWIEDERSCHAUEN" 

5ToP 

PRINT 

GOTO 20 

END 


READY. 


Probelauf: 


WENN DU EINE ERKLAERUNG WILLST TIPPE JA 
WILLST DU KEINE ERKLAERUNG TIPPE NEIN 


EIN 


NEIN 


EINGABE VON KOHLENSTOFF(C), WASSER- 

STOFF(H), SAUERSTOFF(DO), SCHWEFEL(S), 

UND STICKSTOFF(N). 

IN DIESER REIHENFOLGE EINGEBEN 
14009 
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EINGABE DES PROZENTUELLEN,UEBERSCHUESS- 
IGEN LUFTANTEILS. IST EIN ELEMENT NICHT 
VORHANDEN TIPPE 0 EIN. 
EIN BEISPIEL: 34% ENTSPRICHT 34 

0 


LUFT-BRENNSTOFF-VERHAELTNIS IM BEZUG 
AUF DIE MOLEN= 9.924 
LUFT-BRENNSTOFF-VERHAELTNIS IM BEZUG 
AUF DIE MASSEN= 17.1863225 

GESMTMOLEN DER HERSTELLUNG= 10.524 
*PROZENTSATZ DES VOLUMENS DER PRODUKTE * 
KOHLENDYOXID= 9.50209047% 
SCHWEFELDYOXID= 0% 

WASSER= 19.0041809% 

SAUERSTOFF= 0% 

STICKSTOFF= 71.4937286% 

**+3GESAMTE VERBRENNUNG VOAUSGESETZTRH#rHF 


ZUM VERSUCH DER NAECHSTEN VERBINDUNG 
TIPPE JA EIN. FUER PROGRANMENDE TIPPE 
TIPPE NEIN EIN 

NEIN 

AUFWIEDERSCHAUEN 


BREAK IN 500 
READY. 


Hyperbolische 
Funktion 


Hyperbolische Funktionen 
In diesem Programm werden die folgenden hyperbolischen Funktio- 
nen berechnet. sinH, cosH, tanH, cscH, secH,, cotH. 


Formel: 











e*— e-* 1 
ın = = 
EinEr 2 eschk sinH x 
e+e?t 1 
cosH x = ——_. secHx = 
2 cosH x 
ut 2. 1 
tanHx = Fe ootHxr= ge 
Listing: 
READY. 


10 REM HYPERBOLISCHE FUNKTION 

15 REM DIESES PROGRAMM ERRECHNET HYPERBOLISCHE FUNKTIONEN 
20 PRINT"SINH 1)" 

30 PRINT"COSH (2)" 

40 PRINT"TANH (3)" 

50 PRINT"ESCH (4)" 

60 PRINT"CSCH (5)" 

70 PRINT"COTH (6)" 

80 PRINT"TIPPE EINE NUMMER ZWISCHEN 1 UND 4" 
85 PRINT"FUER DIE GEWVENSCHTE FUNKTION EIN" 
90 INPUT C 

100 ON C 6010 110,160,210,270,320,370 

110 GOSUB 490 

120 GOSUB 520 

130 LET Z=Y/2 

140 PRINT"SINH"SXs"="s7 

150 GOTO 420 

160 GOSUB 490 

170 GOSUB 540 

180 LET Z=B/2 

190 PRINT"COSH"SXy"="s2Z 

200 60T0 420 

210 G0SUB 490 

220 GOSUB 520 

230 GOSUB 540 

240 LET Z=Y/B 

250 PRINT"TANH"SXy"="37 

260 G0T0 420 

270 GOSUB 490 
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280 
270 
300 
310 
320 
330 
340 
350 
360 
370 
380 
370 
400 
410 
420 
430 
435 
AA0 
450 
460 
470 
480 
490 
00 
10 
320 
330 
40 
300 
360 


GOSUB 520 

LET Z=1/(Y/2) 
PRINT"CSCH"SX,"="5Z 

GOTO 420 

GOSUB 490 

GOSUB 540 

LET Z=1/(B/2) 
PRINT"SECH"X,"="52Z 

GOTO 420 

GOSUB 470 

GOSUB 520 

GOSUB 540 

LET Z=1/(Y/B) 
PRINT"EOTH"SX,"="3Z 

PRINT | 
PRINT"TIPPE 1 FUER EINE ERNEUTE BERECHNUNG" 
PRINT"O FUER DAS PROGRAMMENDE EIN" 
INPUT L 

IF L=1 THEN 470 

5ToPp 

PRINT 

GOTO 80 

PRINT"X=" 

INPUT X 

RETURN 

LET Y=EXP(X)-EXP(-X) 
RETURN 

LET B=EXP(X)+EXP(-X) 
RETURN 

END 


READY. 


Probelauf: 


SINH 
COSH 
TANH 
CSCH 
GSCH 
COTH 


(2 
(2) 
(3) 
(4) 
(5) 
(6) 


TIPPE EINE NUMMER ZWISCHEN 1 UND 4 


FUER 


DIE GEWUENSCHTE FUNKTION EIN 


X 


SINH 4= 27.2899172 
TIFPE 1 FUER EINE ERNEUTE BERECHNUNG 
0 FUER DAS PROGRANMENDE EIN 

1 


TIPFE EINE NUMMER ZWISCHEN 1 UND 6 
FUER DIE GEWUENSCHTE FUNKTION EIN 
2 
3 
J 
COSH 5= 74.2099485 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG 
0 FUER DAS PROGRANMENDE EIN 
1 


TIPPE EINE NUMMER ZWISCHEN 1 UND 6 
FUER DIE GEWUENSCHTE FUNKTION EIN 
3 
= 
.02 
TANH .O2= .0199973338 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG 
0 FUER DAS PROGRANMENDE EIN 
1 


TIPPE EINE NUMMER ZWISCHEN 1 UND & 
FUER DIE GEWUENSCHTE FUNKTION EIN 
4 
X= 
3.0 
CSCH 3.5= .06044989 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG 


0 FUER DAS PROGRAMMENDE EIN 
1 
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TIPPE EINE NUMMER ZWISCHEN 1 UND 4 
FUER DIE GEWUENSCHTE FUNKTION EIN 
J 

X= 

12 

SECH 12= 1.2288424?E-05 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG 
0 FUER DAS PROGRAMMENDE EIN 
1 


TIPFE EINE NUMMER ZWISCHEN 1 UND 4 
FVUER DIE GEWUENSCHTE FUNKTION EIN 
6 

X= 

A 

COTH „3= 3.43273843 


TIPPE 1 FUER EINE ERNEUTE BERECHNUNG 
0 FUER DAS PROGRANMMENDE EIN 
Ö 


BREAK IN 460 
READY. 


I Ching 
(Chinesisches Buch 
über Schicksale 
oder Zufälle) 


„| CHING“ (Chinesisches Buch über Schicksale und Zufälle) 

„„'| CHING“ enthält eine Sammlung von 64 Hexagrammen, welche zur 
Bestimmung möglicher Ereignisse in der Zukunft verwendet werden. 
Es beruht auf der „Einleuchtung” des alten Chinesen. Jedes Hexa- 








gramm besteht aus sechs Linien, welche unterbrochen ( — -—) oder 


nicht unterbrochen ( 





) sein können. Der Anwender kann Münzen 


oder Stäbchen zur Herstellung der sechs Linien verwenden. Dieses 
Programm berechnet die sechs Linien statistisch in einem Algorithmus 
unter der Verwendung von Datum und Zeit. 

Die Bedeutung der jeweils möglichen 64 Hexagramme können aus dem 
chinesischen Buch (The | Ching) entnommen werden. 


Listing: 
READY. 
10 REM I CHING(CHINESISCHES BUCH VEBER SCHICKSALE UND ZUFAELLE) 
30 PRINT"ANFANSDATEN MONAT(M),TAGCT) ,JAHR(JI" 
AO INPUT M,T,J 
0 FRINT"ANFANGSZEIT STUNDEN(S) ,MINUTEN(M) 
60 PRINT"(24-STUNDENUHR)" 
65 INPUT H,Mi 
>70 LET N=M+(T/30)+(J/100)+H+(M1/60) 
80 FOR I=1 TO & 
90 LET K=N#RND(1) 
100 LET K=K-INT(RK) 
110 LET C(I)=1rINT(2#K) 
120 NEXT I 
130 FOR I=1 TO 6 
140 IF C(Td=1 THEN 179 
150 PRINIS=>-? 
150 G0TO 180 
LZ0=EREIN Te" 
180 NEXT I 
170 PRINT 
200 PRINT"ZU EINER NEUEN RECHNUNG TIPPE J EIN" 
205 PRINT"FUER PROGRAMMENDE TIFPE N EIN" 
210 INPUT L$ 
220 IF L$="J" THEN 250 
230 PRINT"AUFWIEDERSCHAUEN" 
240 STOP 
250 PRINT 
260 GOTO 30 
270 END 
READY. 
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Probelauf: 


ANFANSDATEN MONATCH),TAGCT) „JAHRE. 
8 28 1977 

ANFANGSZEIT STUNDEN(S) ,MINUTENCH) 
(24-5TUNDENUHR) 

796 


ZU EINER NEUEN RECHNUNG TIFPE J EIN 
FUER PROGRAMMENDE TIPPE N EIN 

N 

AUFWIEDERSCHAUEN 


BREAK IN 240 
READY. 


Umgekehrte 
Hyperbolische 
Funktionen 








Umgekehrte Hyperbolische Funktionen 


In diesem Programm werden die folgenden hyperbolischen-trigono- 


metrischen Funktionen berechnet: sinH-1 cos H-1 tan H-1 
csc H—1 ‚sec H=1 und cot H —1 


’ 


Formel: 


snH «=lh&X +? +19) 
cos H x = In(x + (& - 29 


u Sa —_ 
tan H =, In 1-2 





1 
escH"'x=sinH"! 4) 
seceH «= cos #-(t) 


cot H = tan H’ (4) 


x 
Listing: 
READY. 
10 REM UMGEKEHRTE HYPERBOLISCHE FUNKTIONEN 


20 
30 
40 
v0 
60 
A 
80 
85 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
170 
200 
210 
220 
230 
240 


PRINT"SINH-1(1)" 
FRINT"COSH-1(2)" 
PRINT"TANH-1(3)" 
PRINT"ECSCH-1(4)" 
PRINT"SECH-1(5)" 
PRINT"COTH-1(6)" 
PRINT"TIFPE EINE ZAHL ZWISCHEN 1 UNI 4 FUER" 
PRINT"DIE GEWUENSCHTE FUNKTION EIN." 
INFUT C 
DON C GOTO 110,150,190,230,280,330 
GOSUB 440 
GOSUB 470 
PRINT"SINH-1",X,"="52Z 
GOTO 370 
GOSUB 440 
GOSUR 490 
PRINT"COSH-1",X,"="52Z 
GOTO 370 
GOSUB 440 
GOSUB 510 
PRINT"TANH-1",X,"=",7 
GOTO 370 
GOSUB 530 
GOSUB 470 
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200 
260 
270 
280 
270 
300 
310 
320 
330 
340 
350 
360 
370 
380 
385 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
00 
10 
20 
30 
>40 
00 
60 
370 
80 


LET X=4 
PRINT"CSCH-1"3Xy"="sZ 
60T0 370 

GOSUB 530 

GOSUB 490 

LET X=A 
PRINT"SECH-1";X;"="57 
GOTO 370 

GOSUB 530 

GOSUB 510 

LET X=A 
PRINT"COTH-1"sXy"="327 
PRINT 

PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
INPUT L 

IF L=1 THEN 420 

STOP 

PRINT 

GOTO 80 

PRINT"X=": 

INPUT X 

RETURN 

LET Z=LOGCX+SARC(X"2)+1)) 
RETURN 

LET Z=LOG(X+SARC(X*2)-1)) 
RETURN 

LET Z=(LOGCC1+X)/1-X)))/2 
RETURN 

PRINT"X=": 

INPUT X 

LET A=X 

LET X=1/X 

RETURN 

END 


READY. 


Probelauf: 


SINH-1(1) 
COSH-1(2) 
TANH-1(3) 
ESCH-1(4) 


SECH-1(9) 
COTH-1(6) 
TIPPE EINE ZAHL ZWISCHEN 1 UND 4 FUER 
DIE GEWUENSCHTE FUNKTION EIN. 
I 
= 12 
SINH-iI 12= 3.179798544 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
1 


TIPPE EINE ZAHL ZWISCHEN 1 UND 6 FUER 
DIE GEWUENSCHTE FUNKTION EIN. 
2 
= 45 
LOSH-1 A5= 4.49968419 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRANNMENDE EIN 
1 


TIPPE EINE ZAHL ZWISCHEN 1 UND & FUER 
DIE GEWUENSCHTE FUNKTION EIN. 
3 
{= 9.9£-04 
TANH-1 5.9E-04= 5.90000174E-04 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


TIPPE EINE ZAHL ZWISCHEN 1 UND 6 FUER 
DIE GEWUENSCHTE FUNKTION EIN. 

ä 
X=CSCH-1 23= „0434645745 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
1 


TIPPE EINE ZAHL ZWISCHEN I UND 4 FUER 
DIE GEWUENSCHTE FUNKTION EIN. 
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ie 


X=SECH-1 .125= 2.74865939 

GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
TIPPE EINE ZAHL ZWISCHEN 1 UND 6 FUER 
DIE GEWUENSCHTE FUNKTION EIN. 

6 
X=C0TH-1 8= „125657214 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 

0 


BREAK IN 410 
READY. 


Tiefpass-System 
mit geringen 
Verlusten 


Tiefpass-System mit geringen Verlusten 















Bei Systemen, in welchen zwei Widerstands-Schaltungen miteinander 
gekoppelt werden müssen, kann zur Anpassung ein Tiefpaß mit mini- 
malen Verlusten verwendet werden. Eine typische Anwendung für die- 
sen Tiefpaß könnte die Ein- und Auskopplung von NF-Schaltungen 
sein. Der Anwender gibt die beiden Impedanzen Z, und Z, ein. Das 
Programm antwortet dann mit den Werten für die Tiefpaß-Widerstän- 
de R1 und R2 und gibt auch noch den Verlust im System in Dezibel 
an. 


Formel: 


R1 


- 71 RR e-2Z— Zı>Z2: 


RKı= Zı/i- 2% 


Listing: 


READ 


Y. 


REM TIEFPASS-SYSREM HIT GERINGEN VERLUSTEN 
REM DIESES PROGRANM ERRECHNET DIE WERTE DER 
REM ZWEI WIDERSTAENDE DIE GEFORDERT WERDEN 
REM ZUR KONSTRUKTION EINES TIEFPASS-SYSTENS 
REM MIT GERINGEN VERLUSTEN. 

PRINT"ERSTE IMPEDANZ" 

INPUT ZI 

PRINT"ZWEITE IMPEDANZ" 

INFUT Z2 
LET Ri=21*5QR(1-(22/Z1)) 

LET R2=22/5QR(1-(2Z2/Z1)) 

LET M=5SQR(Z1/Z2)+5Q0R((Z1/Z2)-1) 

LET L=20#(LOG(H)/LOGKIO)) 

PRINT"BAUTEILE DES TIEFPASSES" 
PRINT"WIDERSTAND 1=";R1 

PRINT"WIDERSTAND 2=";,R2 

PRINT"VERLUST IN DECIBELS=";L 

PRINT 

PRINT"GEBE 1 FUER EINEERNEUTE BERECHNUNG EIN" 
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74 


180 INPUT X 
190 IF X=1 THEN 210 
200 STOP 
210 PRINT 
220 G0OTO 40 
230 END 
READY. 


Probelauf: 


ERSTE IMPEDANZ 

300 
ZWEITE IMPEDANZ 

73 

BAUTEILE DES TIEFPASSES 
WIDERSTAND 1= 259.807821 
WIDERSTAND 2= 868.6025404 
VERLUST IN DECIBELS= 11.438951 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
1 


ERSTE IMPEDANZ 

>00 
ZWEITE IMPEDANZ 

200 
BAUTEILE DES TIEFPASSES 
WIDERSTAND 1= 387.298335 
WIDERSTAND 2= 258.19889 
VERLUST IN DECIBELS= 8.961397333 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
d 


BREAK IN 200 
READY. 





Lineare 
Interpolation 


Lineare Interpolation 

Wenn Y eine Funktion von X ist, und Y1 — Y2 sind die entsprechen- 
den Werte dieser Funktion bei X1 — X2, so kann Y für irgendeinen 
Wert von X berechnet werden. 





Formel: 

1x) 

1) << 

fix) 

fa) E (2 - fR))+ (x —- xı )(f(x2)) 
x2— X 
x : 

Listing: 
READY. 


10 REM LINEARE INTERPOLATION 

20 PRINT"BEKANNTE X-WERTE(X1,X2)=" 

30 INPUT X1,X2 

40 PRINT"BEKANNTE Y-WERTE(YI,Y2)=" 

0 INPUT Y1,Y2 

60 PRINT"INTERPOLIERE F(X) BEI FOLGENDEM X-WERT" 
79 INPUT X 

80 LET G=((X2-X)#Yid+((X-X1)#Y2) 

0 LET F=6/(X2-X1) 

100 PRINT"INTERPOLIERTES F(X)=";F 

110 PRINT 

120 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
125 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 

130 INPUT L 

140 IF L=1 THEN 160 


75 


76 


150 STOP 
160 PRINT 
170 G0TO 20 
180 END 
READY. 


Probelauf: 


BEKANNTE X-WERTE(X1,%X2)= 
10 50 

BEKANNTE Y-WERTE(Y1,Y2)= 
15 59 

INTERPOLIERE F(X) BEI FOLGENDEM X-WERT 
60 

INTERPOLIERTES F(X)= 65 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
1 


BEKANNTE X-WERTE(X1,X2)= 

43 978 

BEKANNTE Y-WERTE(YI,Y2)= 
86 196 

INTERPOLIERE F(X) BEI FOLGENDEN X-WERT 
1234 

INTERFOLIERTES F(X)= 2468 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
d 


BREAK IN 1590 
READY. 





Logarithmus 
verschiedener 
Basen 


Logarithmus von verschiedenen Basen 





Dieses einfache Programm gestettet dem Benutzer, den Wert eines 
Logarithmus zu einer gegebenen Basis zu berechnen. Die Zahl X 
und die Basis Y müssen beide positiv sein, damit kein Maschinen- 
fehler auftreten kann. 





Formel: 
In x 
log » x = 
In y 
Listing: 
READY. 


10 REM LOGARITHAMUS VON VERSCHIEDENEN BASEN 

15 REM DIESES KLEINE PROGRAMM BERECHNET DEN 

20 REM LOGARITHMUS VON ALLEN POSITIVEN ZAHLEN X 
25 REM UND ALLEN POSITIVEN BASEN Y 

40 PRINT"DIE BASIS=", 

0 INPUT Y 

60 PRINT"DAS ARGUMENT X="5 

79 INPUT X 

80 LET J=LOG(X)/LOG(Y) 

85 PRINT 

#0 PRINT"LOG"SX,"ZUR BASIS",Y,"=",J 

975 PRINT 

100 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
105 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 

110 INPUT L 


77 


78 


120 IF L=1 THEN 149 
130 STOP 
140 PRINT 
150 G60T0 40 
160 END 
READY. 


Probelauf: 


DIE BASIS= 10 
DAS ARGUMENT X= 100 


LOG 100ZUR BASIS 10= 2 
GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 

1 


DIE BASIS= 54 
DAS ARGUMENT X= 11 


LOG 11ZUR BASIS 54= „601129321 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMNENDE EIN 

1 


DIE BASIS= 2.718928 
DAS ARGUMENT X= 100 


LOG I00ZUR BASIS 2.71828= 4.60517328 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 

d 


BREAK IN 139 
READY. 





Durchschnitt, 
Standard- 
abweichung, sowie 
Standardfehler 
bei gruppierten 
Fehlern 


Durchschnitt, Standardabweichung sowie Standard-Fehler bei 
gruppierten Daten 




















Dieses Programm liefert den Durchschnitt, die Standardabweichung 
und den Standardfehler für gruppierte Daten, bis der Anwender eine 
O für den Wert der Häufigkeit eingibt. 





Formel: 
ufıxi 
Durchschnitt % = 
fi 
S 
Standardfehler ST= —— 
v2 fi 


VEf:w@- (ZN 


Standardabweichung $ = nn 


79 


80 


Listing: 


KEADY. 


REM DURCHSCHNITT „STANDARTABWEICHUNG ‚SOWIE 
REM STANDARTFEHLER BEI GRUPPIERTEN FEHLERN 
LET A=0 

LET B=0 

LET C=0 

LET D=0 

PRINT"EINGABE DER PROBE UND DER HAEUFIGKEIT" 
INPUT X,F 

IF F<=0 THEN 170 


LET A=A+1 

LET B=B+F 

LET 6=X#F 

LET C=C+6 

LET E=(X"2)#F 

LET D=D+E 

GOTO 70 

LET H=6/B 

LET I=SQR(D-(B*(H"2))) 

LET J=1/5Q0R(B) 

PRINT 

PRINT"ANZAHL DER EINGEGEBENEN PROBEN=";A 
PRINT"DURCHSCHNITT="5H 
PRINT"STANDARTABWEICHUNG="51 
PRINT"STANDARTFEHLER="5 J 

PRINT 

PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
INPUT L 

IF L=1 THEN 300 

Top 

PRINT 

GOTO 30 

END 


READY. 


Probelauf: 


En DER PROBE UND DER HAEUFIGKEIT 
EINDABE DER FROBE UND DER HAEUFIGKEIT 
Erse DER PROBE UND DER HAEUFIGKEIT 
EINE DER PRÜBE UND DER HAEUFIGKEIT 


ANZAHL DER EINGEGEBENEN PROBEN= 3 
DURCHSCHNITT= 7.66666667 
STANDARTABWEICHUNG= 5.77350248 
STANDARTFEHLER= 2.3570226 


GEBE i FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
0 


BREAK IN 290 
READY. 





Augenblickswerte, 


Schiefe und 
Kurtosis 


Augenblickswerte, Schiefe und „Kurtosis’” 








Dieses Programm berechnet die ersten vier Augenblickswerte, wobei 
der erste Augenblickswert das Mittel der Verteilung darstellt und der 
zweite Augenblickswert die Variante angibt. Die SCHIEFE ist eine 
Abweichung einer Häufigkeitsverteilung von der Symmetrie, und 
„Kurtosis’’ ist die Eigenschaft einer Verteilung, welche ihre relative 
Spitzenlosigkeit ausdrückt. 
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Formel: 


Listing: 
READY. 


2ND M=Ma = Yr2_% 
RDas an. — 1 3 | 
3”M =M3 =. a0-—x2% x? +2x° 


Ey =Mı = — 3 ee 72 + mi s2- 3% 


Ms 
Schiefe =yı = u 
Mi 
KURTOSIS y2 = en 
M? 


10 REM AUGENBLICKSWERTE, SCHIEFE UND "KURTOSIS" 
15 REM DIESES PROGRAMM ERRECHNET DEN WERT VON DEN 
20 REM ERSTEN 4 MOMENTEN, SCHIEFE UND KURTOSIS 

30 LET A=0 


AQ LET B 
0 LETC 
60 LET D 
’0 PRINT 


d 
0 
0 


'ANZAHL DER PROBEN=" 


80 INPUT N 

»0 FOR I=1 TON 
100 PRINT"PROBE=" 
110 INPUT X 

120 LET A=AtX 

130 LET B=B+(X"2) 
140 LET C=Cb+(X°3) 
150 LET D=D+(X"4) 


160 NEXT I 

170 LET J=A/N 

180 LET E=(B/N)-(J’2) 

190 LET F=(C/N)-(t3#J#B) /NIrC2rlJ"3)) 

200 LET 6=(D/N)-((4#J3C)/N) 

210 LET H=G+rt(d+(J"2)#B)/N)-(3#(J"4)) 

220 LETK=F/(E*(3/2)) 

230 LET L=H/tE’2) 

240 PRINT"ERSTES HOKENT="5J 

250 PRINT"ZWEITES MOMENT="JE 

260 PRINT"DRITTES HOMENT="5F 

2?0 PRINT"VIERTES MOMENT="5H 

280 PRINT"AUGENBLICKSKODEFIZIENT" 

290 PRINT"SCHIEFE=";K,"KURTOSIS="JL 

300 PRINT "ke" 
310 PRINT"GEBE I FUER EINE ERNEUTE BERECHNUNG EIN" 
315 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
320 INPUT Z 

330 IF Z=1 THEN 350 

340 5TOP 

350 PRINT 

360 GOTO 30 

370 END 
READY. 


Probelauf: 


ANZAHL DER PROBEN= 
5 
PROBE= 
12 
PROBE= 
3 
PROBE= 
4 
PROBE= 
5 
PROBE= 
ä 
ERSTES MOMENT= 5.6 
ZWEITES MOMENT= 10.64 
DRITTES MOMENT= 47.2320008 
VIERTES MOMENT= 347.331204 
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84 


AUGENBLICKSKDDEFIZIENTEN 

SCHIEFE= 1,.36089275KURTOSIS= 3.0498034648 
FEREERRRRREERRERRE RR RRRRRREE % 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 

0 


BREAK IN 340 
READY. 


Wahrscheinlich- 
keit der Nicht- 
wiederholung 


Wahrscheinlichkeit der Nichtwiederholung 
Der Anwender legt die Bevölkerungsgröße fest, welche zur Bestim- 
mung der Nichtwiederholungs-Wahrscheinlichkeit dient. 











Formel: 


P-( nl: | +) ) 


wobei M>N>1 


Listing: 
READY. 


10 REM WAHRSCHEINLICHKEIT DER NICHTWIERERHOLUNG 
15 REM BIESES PROGRAMM ERRECHNET DIE NICHTWIEDER- 
20 REM HOLUNGSWAHRSCHEINLICHKEIT EINER PROBE 

30 PRINT" KrackarrrRRe " 
40 PRINT"GESAMTBEVOELKERUNG" 

»0 INPUT M 


60 PRINT"GROESSE DER FROBE" 

65 INPUT N 

/V LET J=l 

80 FOR I=1 TO N-1 

?0 LETK=1-(I/M) 

100 LET J=J#K 

110 NEXT I 

120 PRINT"WAHRSCHEINLICHKEIT="5.J 
130 PRINT 


140 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
145 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 


150 INPUT L 
160 IF L=1 THEN 30 
170 STOP 
180 END 
READY. 


Probelauf: 


KEREREREE RER RRRIERERERER EEE 
GESAMTBEVDELKERUNG 
"6 
GROESSE DER PROBE 
2 
WAHRSCHEINLICHKEIT= „9982142857 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMHENDE EIN 

| 
KEREERERERRERRERERERFRE ERERr Kck kr k 
GESAMTBEVOELKERUNG 

9 
GROESSE DER FROBE 

A 
WAHRSCHEINLICHKEIT= „44090535 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
Ö 


BREAK IN 170 
READY. 
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Zahlenratespiel 


Zahlenratespiel 

Der Sinn dieses Spieles ist es, mit so wenig wie nur möglichen Ver- 
suchen die Zahl zu erraten, welche der Computer zufällig gewählt 
hat. (Hinweis: Benutzen Sie eine binäre Suchschablone). 


Listing: 
READY. 


10 REN 
15 REM 
20 REM 
25 REM 
30 REM 
0 LET 
60 LET 


ZAHLENRATESPIEL 

DER COMPUTER WAEHLT EINE ZUFALLSZAHL 
ZWISCHEN 1 UND 100. DER SINN DES SPIELES 
LIEGT DARIN DIE ZAHL IN SOWENIG WIE 
MOEGLICH VERSUCHEN ZU ERRATEN. 
R=I+INTCI00#+RNDEID) 

Y=0 


70 PRINT"EINE ZUFALLSZAHL WURDE AUSGEWAEHLT" 

80 PRINT"VERSUCHEN SIE DIESE ZAHL ZU ERRATEN." 

70 PRINT"GEBEN SIE DIE ZAHL AN, SIE LIEGT" 

75 PRINT"ZWISCHEN 1 UND 100" 

100 PRINT"xx2xxrxkr2333 VIEL GLUECKFRH RR" 
110 PRINT 

120 PRINT"DEINE VERMUTUNG=";5 

130 INPUT X 

140 LET Y=Y+1 


150 IF 
160 IF 


X=R THEN 180 
X>R THEN 280 


170 G0TD 300 

180 PRINT"NICHT SCHLECHT!!!-DU HAST DIE ZAHL" 
1970 PRINT"DIE ANZAHL DEINER VERSUCHE WAR"5Y 
200 PRINT 

210 FRINT"WILLST DU ES NOCHEINMAL VERSUCHEN" 
215 PRINT"TIPPE 1 EIN, WENN NICHT TIPPE 0 EIN" 
230 INPUT L 


240 IF 


L=1 THEN 260 


250 5TOF 

260 PRINT 

270 60T0 50 

280 FRINT"ZU HOCH, VERSUCHE ES NOCHMALS" 


270 G0TD 120 
300 PRINT"ZU NIEDRIG, VERSUCHE ES NOCHMALS" 
310 G60T0 120 
320 END 
READY. 


Probelauf: 


EINE ZUFALLSZAHL WURDE AUSGEWAEHLT 
VERSUCHEN SIE DIESE ZAHL ZU ERRATEN. 
GEBEN SIE DIE ZAHL AN, SIE LIEGT 
ZWISCHEN 1 UND 100 

KERRFERERRRHEU TEL GLUECKRFERRRERERE RE 


DEINE VERMUTUNG= 50 

ZU NIEDRIG, VERSUCHE ES NOCHMALS 
DEINE VERMUTUNG= 65 

ZU HOCH, VERSUCHE ES NOCHNALS 
DEINE VERMUTUNG= 55 

ZU NIEDRIG, VERSUCHE ES NOCHMALS 
DEINE VERMUTUNG= 60 

ZU HOCH, VERSUCHE ES NOCHNALS 
DEINE VERMUTUNG= 58 

ZU HOCH, VERSUCHE ES NOCHMALS 
DEINE VERMUTUNG= 57 

ZU HOCH, VERSUCHE ES NOCHMALS 
DEINE VERMUTUNG= 56 

NICHT SCHLECHT!!! !-DU HAST DIE ZAHL 
DIE ANZAHL DEINER VERSUCHE WAR ? 


WILLST DU ES NOCHEINMAL VERSUCHEN 
TIPPE 1 EIN, WENN NICHT TIPPE 0 EIN 
v 


BREAK IN 250 
READY. 
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Einarmiger Bandit 


Einarmiger Bandit 

Dieses Programm simuliert einen ‚„ einarmigen Banditen‘, der drei 
mechanische Räder verwendet. Für ausführliche Anweisungen, geben 
Sie bei der Anweisungsfrage im Programm JA ein. 


Listing: 


READY. 


REM EINARMIGER BANDIT 

REM DIESES PROGRAMM AHMT DEN MECHANISCHEN 
REM DREIRAEDER EINARMIGEN BANDITEN NACH 
PRINT"SIND INSTRUKTIONEN ERFORDERLICH?" 
PRINT"TIPPE JA ODER NEIN EIN." 

INPUT L$ 

IF L$="JA" THEN 100 

IF L$="NEIN" THEN 170 

PRINT"NICHT VEREINBARTE EINGABE" 

GOTO 30 


PRINT"DIE PUNKTEZAEHLUNG IST EINFACH," 

PRINT"3 ORANGEN, ZITRONEN ODER BANANEN" 
FRINT"ERBRINGEN DM 10.-. 3 KIRSCHEN ERBRINGEN" 
PRINT"DM 90.-.WENN DIE ERSTE FRUCHT EIN APFEL" 
PRINT"IST, ERWIRBST DU DM 2.-. WENN ZUSAETZLICH" 
PRINT"NOCH DIE ZWEITE FRUCHT EIN APFEL IST," 
PRINT"ERHAELST DU DM 3.-. WENN DIE LETZTE" 
PRINT"FRUCHT EINE KIRSCHE IST UND DIE BEIDEN" 
PRINT"ANDEREN FRÜUECHTE SIND GLEICH, ABER " 
PRINT"KEINE AEPFEL ERHAELST DU DM 10.-." 
PRINT"JEDER VERSUCH KOSTET DM 1.-." 
FRINT"xr#4324 KK VIEL GLUECKRRRRRRER Re" 
LET J=0 

PRINT 

GOSUB 590 

LET S1=5 

GOSUB 590 

LET 52=$ 

GOSUB 590 

LET 53=5 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
390 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
00 
910 
320 
330 
>40 
390 


v0 
80 
70 
600 
610 
620 
630 
640 
650 
660 
670 


LET $=51 

GOSUB 410 

LET S1$=5$ 

LET 9=82 

GOSUR 610 

LET $2$=5$ 

LET $=83 

GOSUB 610 

LET 83$=$$ 

IF S1$="KIRSCHE" THEN 380 
IF S1$="APFEL" THEN 420 
IF $1$=52$ THEN 440 
GOTO 460 

IF S1$=52$ THEN 400 
GOTO 460 

IF 52$=53$ THEN 480 
GOTO 460 

IF 51$=52$ THEN 500 
60TO 520 

IF 52$=53$ THEN 540 

IF S3$="KIRSCHE" THEN 540 
LET JeJ-1 

G0TO 550 

LET J=J+89 

60T0 550 

LET J=J+2 

G0T0 550 

LET Jay#t 

60TO 550 

LET J=J+9 

PRINT 

PRINT Si$;" "sg2g5" "ogag 


PRINT"DEINE GESAMTEN EINNAHMEN SIND DM"J,".-" 


GOTO 720 

LET S=1+INT(5*RND(1)) 

RETURN 

ON 5 G0TO 620,640,660,680,700 
LET 5$="KIRSCHE" 
GOTO 710 

LET 5$="APFEL" 

G0OTO 710 

LET 5$="ZITRONE" 

GOTO 710 


89 


90 


680 LET 5$="ORANGE" 

670 GOTO 710 

700 LET 5$="BANANE" 

?’10 RETURN 

720 PRINT 

730 PRINT"GEBE JA FUER EIN ERNEUTES SPIEL EIN" 
?35 PRINT"GEBE NEIN FUER PROGRAMMENDE EIN" 

740 INPUT Z$ 

730 IF Z$="JA" THEN 790 

760 IF Z$="NEIN"” THEN 780 

7?% PRINT"NICHT VEREINBARTE EINGABE" 

775 60T0 730 

780 PRINT"EINARMIGER BANDIT SAGT AUFWIEDERSEHEN" 
785 STOF 

790 FRINT 

800 GOTO 190 

810 END 
READY. 


Probelauf: 


SIND INSTRUKTIONEN ERFORDERLICH? 
TIPPE JA OBER NEIN EIN. 
NEIN 


APFEL APFEL ORANGE 
DEINE GESAMTEN EINNAHMEN SIND DH 2.- 


GEBE JA FUER EIN ERNEUTES SPIEL EIN 
GEBE NEIN FUER PROGRAMMENDE EIN 
JA 


APFEL ORANGE KIRSCHE 
DEINE GESAMTEN EINNAHMEN SIND DM 3.- 


GEBE JA FUER EIN ERNEUTES SPIEL EIN 
GEBE NEIN FUER PROGRAMMENDE EIN 
JA 


ZITRONE APFEL APFEL 
DEINE GESANTEN EINNAHMEN SIND DM 2.- 


GEBE JA FUER EIN ERNEUTES SPIEL EIN 
GEBE NEIN FUER PROGRAMMENDE EIN 
JA 


BANANE KIRSCHE APFEL 
DEINE GESAMTEN EINNAHMEN SIND DM 1.- 


GEBE JA FUER EIN ERNEUTES SPIEL EIN 
GEBE NEIN FUER PROGRAMHENDE EIN 
JA 


KIRSCHE KIRSCHE APFEL 
DEINE GESAMTEN EINNAHMEN SIND DM 0.- 


GEBE JA FUER EIN ERNEUTES SPIEL EIN 
GEBE NEIN FUER PROGRAMMENDE EIN 
JA 


ORANGE ZITRONE ZITRONE 
DEINE GESAMTEN EINNAHMEN SIND IM-1.- 


GEBE JA FUER EIN ERNEUTES SPIEL EIN 
EBE NEIN FUER PROGRAMMENDE EIN 
JA 


ZITRONE DRANGE BANANE 
DEINE GESAMTEN EINNAHMEN SIND DM-2.- 


GEBE JA FÜUER EIN ERNEUTES SPIEL EIN 
GEBE NEIN FUER PROGRAMMENDE EIN 

NEIN 

EINARMIGER BANDIT SAGT AUFWIEDERSEHEN 


BREAK IN 785 
READY. 
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Permutationen 
und Kombinatio- 
nen 


Permutationen und Kombinationen 

Mit diesem Programm werden Permutationen und Kombinationen be- 
rechnet, wobei N die Anzahl der verfügbaren Posten angibt und R die 
Größe der betrachteten Gruppen darstellt. 











Formel: 
N! N! 
De U 
(N -R)! RKN- R)! 
Listing: 
READY. 


10 REM PERMUTATIONEN UND KOMBINATIONEN 

15 REM N = ANZAHL DER VERFUEGBAREN POSTEN 
20 REM R = GROESSE DER BETRACHTETEN GRUPPE 
40 PRINT"EINGABE VON N UND R"; 

0 INPUT N,R 

60 IF N<R THEN 270 

70 IF R<O THEN 290 

80 LET T=N 

70 GOSUB 310 

100 LET A=T 

110 LET T=N-R 

120 GOSUB 310 

130 LET B=T 

140 LET P=A/B 

150 LET T=R 

160 GOSUB 310 

170 LET C=A/tT#B) 

180 PRINT"PERMUTATIONEN="5P 


170 PRINT"KOMBINATIONEN="5C 
200 PRINT 
210 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
215 PRINT"GEBE 0 FUER DAS PROGRAMNENDE EIN" 
220 INPUT L 
230 IF L=1 THEN 250 
240 STOP 
250 PRINT 
260 GOTD 40 
270 PRINT"N<R FALSCHE EINGABE" 
280 G0TD 40 
270 PRINT"R<SO FALSCHE EINGABE" 
300 G0T0 40 
310 IF T=0 THEN 3990 
320 IF T=1 THEN 390 
330 LET J=1 
340 FOR I=2 TO T 
350 LET J=J#I 
360 NEXT I 
370 LET T=J 
380 GOTO 400 
370 LET T=1 
400 RETURN 
410 END 
READY. 


Probelauf: 


EINGABE VON N UND R 
12 5 

PERMUTATIONEN= 95040 

KOMBINATIONEN= 792 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


EINGABE VON N UND R 

23 21 
PERMUTATIONEN= 1.29240084E +22 
KOMBINATIONEN= 253 


93 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 


GEBE 0 FUER DAS PROGRANMMENDE EIN 
d 


BREAK IN 240 


-- Pl-Filter 
Impedanz- 
anpassung 


PI-Filter -Impedanzanpassung 











Oft ist zwischen zwei widerstandsbehafteten Impedanzen Z, und Z, 
ein verlustloses Filter erwünscht. Der Computer benötigt die folgen- 
de Information: Z, — Z, den gewünschten Gütefaktor Y des Systems 
und die Betriebsfrequenz. 


Formel: 





Zı>Z:2,f=Frequenz und Q ist das für das System gewünschte Q. 


1 1 Xi Z: 
Cı= G=——[L= —({?+1D)>1 


21 Kcı 2 KXca, 2mf, Zı 








wobei 


Zı Za 
Kam Kaarm— 
u 7 @+1- ı) 

1 


9Zı Z2 
— lt — 


Q?+1 X ca 





Listing: 
READY. 


10 REM PI-FILTER INPEDANZANPASSUNG 

15 REM DIESES PROGRAMM BERECHNET DIE KOMPONENTEN 
20 REN EINES PI-FILTERS.BESTIMME 2 IMPEDANZEN 
40 PRINT"EINGABE DER ERSTEN IMPEDANZ" 

0 INPUT Z1 

60 PRINT"EINGABE DER ZWEITEN IMPEDANZ" 

70 INPUT 22 

80 PRINT"EINGABE DES GEWUENSCHTEN @" 

»0 INPUT @ 

100 PRINT"EINGABE DER BETRIEBSFREQUENZ" 

110 INPUT F 

120 LET A=Z1/0Q 

130 LET C=((Z2/Z1)#+(a°2)+H1))-1 

140 LET B=Z2/5S0R(C) 

150 LET E=(Z2/(Q#B)) +1 

160 LET D=E*((Q*#Z1)/((Q°2)+1)) 

170 LET P=6.28319 

180 LET Ci=1/(P*F&#A) 

190 LET C2=1/(Px*F#B) 

200 LET L=D/(P#F) 

210 PRINT"BAUTEILE DES PI-FILTERS" 

220 PRINT"KONDENSATOR 1="5C1 

230 PRINT"KONDENSATOR 2="5C2 

240 PRINT"INDUKTIVITAET=";SL 

250 PRINT 

260 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
265 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 
270 INPUT X 
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280 IF X=1 THEN 300 
290 STOP 
300 PRINT 
310 G0TO 40 
320 END 
READY. 


Probelauf: 


EINGABE DER ERSTEN IMPEDANZ 
345 

EINGABE DER ZWEITEN IMPEDANZ 
300 

EINGABE DES GEWUENSCHTEN Q 

20 

EINGABE DER BETRIERSFREQUENZ 
00 

BAUTEILE DES PI-FILTERS 

KONDENSATOR 1= 1.84527333E-05 

KONDENSATOR 2= 1.978465412E-05 
INDUKTIVITAET= „0105836582 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
d 


BREAkK IN 290 
READY. 


Punkte auf einem 
Kreisumfang 





Punkte auf einem Kreisumfang 


Dieses Programm berechnet N-abstandsgleiche Punkte auf dem Kreis- 
umfang. Wenn der Radius und der Mittelpunkt des Kreises gegeben 
sind, berechnet dieses Programm die rechtwinkligen Koordinaten der 
abstandsgleichen Punkte X, und Y,. 


Formel: 
y 
X2, y2 
X, Yı 
ee” 
| Xı+1=Xo+RCos($+ZI) 
Xn, Yn Yı+ı=Yo+RSn®+ZD 


wobei Z= 2rr /N 





0,0 
Punkte auf einem Kreisumfang 


Listing: 
READY. 


10 REM PUNKTE AUF EINEM KREISUMFANG 

30 PRINT"KREISMITTELPUNKT(X0,Y0)=", 

a0 INPUT X0,Y0 

50 PRINT"WINKEL DES ERSTEN PUNKTES IN GRAD="; 
60 INPUT W 

70 LET W=(4#3.14159)/180 

80 PRINT"ANZAHL DER GEWUENSCHTEN PUNKTE="; 


97 


93 


?0 INPUT N 


100 PRINT"KREISRADIUS="; 
110 INPUT R 
120 LET Z=6.28319/N 
130 PRINT 
140 PRINT"KOORDINATEN" 
150 FOR I=09 TO N-1 
160 LET X=X0+(R#+COS(W+rZ#+I)) 
170 LET Y=YO+rtR#SIN(U+Z#I)) 
180 LET P=I+f1 
190 PRINT"PUNKT";P,": X="5X,"Y="5Y 
200 NEXT I 
210 PRINT 
220 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
225 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
230 INPUT L 
240 IF L=1 THEN 260 
250 STOP 
260 PRINT 
270 G0OTO 30 
280 END 
READY. 
Probelauf: 


KREISMITTELPUNKT(X0,YO)= 3 3 

WINKEL DES ERSTEN PUNKTES IN GRAD= 90 
ANZAHL DER GEWUENSCHTEN PUNKTE= 8 
KREISRADIUS= 1 


KOORDINATEN 

PUNKT 12 %= 3.00000133Y= 4 

PUNKT 2:2 X= 2.29289374Y= 3.7071073 
PUNKT 33 X= 2.00000005Y= 3.00000015 
PUNKT 45 X= 2.29289352Y= 2.29289291 
PUNKT 53 X= 3.00000102Y= 2 

PUNKT 4: X= 3.70710792Y= 2.29289435 


PUNKT 


7: X= AY= 3.00000219 


PUNKT 8: X= 3.70710482Y= 3.70710875 


GEBE 


1 FUER EINE ERNEUTE BERECHNUNG EIN 


GEBE 0 FUER DAS PROGRAMMENDE EIN 


0 


BREAK IN 250 
READY. 





Umwandlung von 
polaren in recht- 


winkelige Koordi- 
naten 


Umwandlung polarer in rechtwinklige Koordinaten 
Dieses Programm wandelt gegebene Polar-Koordinaten in rechtwink- 
lige Koordinaten um. 








Formel: POLAR nach RECHTWINKLIG 


X=RCos ® 
Y=RSin® 





Listing: 
READY. 


10 REM UMWANDLUNG VON POLAR IN RECHTWINKLIGE 
15 REM KOORDINATEN. 

30 PRINT"POLARKOORDINATEN" 

AD PRINT"WINKEL IN GRAD="; 

„0 INPUT W 

60 LET W=(4W#3.14159)/180 

?0 PRINT"GROESSE R=",; 

80 INPUT R 

70 LET X=R#C05(W) 


99 


100 


100 LET Y=R*+5IN(W) 
110 PRINT"RECHTWINKLIGE KOORDINATEN" 
120 PRINT"X="X,"Y="5Y 
130 PRINT 
140 PRINT"GEBE I FUER EINE ERNEUTE BERECHNUNG EIN" 
145 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 
150 INPUT L 
160 IF L=1 THEN 180 
170 STOP 
180 PRINT 
1970 G60T0 30 
200 END 
READY. 


Probelauf: 


POLARKOORDINATEN 

WINKEL IN GRAD= 45 

GROESSE R= 5 

RECHTWINKLIGE KOORDINATEN 
= 3.53553625Y= 3.53553156 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMHENDE EIN 
1 


POLARKOORDINATEN 

WINKEL IN GRAD= 20 

GROESSE R= 1 

RECHTWINKLIGE KOORDINATEN 
= .939692721Y= „342019866 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
0 


BREAK IN 170 
READY. 


Primzahlentest 





Primzahlentest 

Dieses Programm überprüft eine angegebene Zahl, ob diese entweder 
eine Primzahl ist oder nicht. Wenn es zutrifft, so wird diese Zahl ange- 
zeigt, wenn nicht, so kehrt der kleinste Faktor zurück. Das Programm 
wiederholt sich fortgesetzt solange, bis eine Null als Testzahl eingege- 
ben wird. 


Listing: 


READY. 


REM PRIMZAHLENTEST 

REM DIESES PROGRAMM WIEDERHOLT SICH SOOFT, 
REM BIS NULL ALS TESTZAHL EINGEGEBEN WIRD. 
PRINT"EINGABE EINER TESTZAHL; 0-EINGABE WIRD" 
PRINT"ALS PROGRAMNENDE DEFINIERT." 

INPUT N 

IF N=0 THEN 220 

IF N<4 THEN 180 

LET I=0 

LET T=2 


LET J=INT(N/T) 

LET K=J#T 

IF N=K THEN 200 

LET I=I#1 

LET L=T#T 

IF L>N THEN 180 

LET T=(I#2)+1 

GOTO 100 

PRINT N," IST EINE PRINZAHL 

GOTO 30 

PRINT N," IST KEINE FRIMZAHL,",T," IST DER" 
PRINT"KLEINSTE DIVIDENT" 

GOTD 30 

PRINT"AUF WIEDERSEHEN VOM PRIMZAHLENTESTER" 
END 


READY. 


101 


102 


Probelauf: 


EINGABE EINER TESTZAHL, 0-EINGABE WIRD 
ALS PROGRAMMENDE DEFINIERT. 

45 

45 15T KEINE PRIMZAHL, 3 I5T DER 
KLEINSTE DIVIDENT 
EINGABE EINER TESTZAHL, O-EINGABE WIRD 
ALS FROGRAMMENDE DEFINIERT. 

120078 

120078 I5T KEINE PRIMZAHL, 2 IST DER 
KLEINSTE DIVIDENT 
EINGABE EINER TESTZAHL,; 0-EINGABE WIRD 
ALS PROGRAMNENDE DEFINIERT. 

121 

121 IST KEINE PRINZAHL, 11 I5T DER 
KLEINSTE DIVIDENT 
EINGABE EINER TESTZAHL, 0-EINGABE WIRD 
ALS PROGRAMMENDE DEFINIERT. 

179 

179 IST EINE PRIMZAHL 
EINGABE EINER TESTZAHL,; 0-EINGABE WIRD 
ALS PROGRAMMENDE DEFINIERT. 

d 
AUF WIEDERSEHEN VOM PRIMZAHLENTESTER 


READY. 


Quadratische 





Quadratische Gleichungen 


Dieses Programm löst X in einer quadratischen Gleichung auf, wobei 
a,b und c gegeben sind. Beide, die reellen und die komplexen Wurzeln 


werden ermittelt. 


Formel: 


a? +bke+c=b 
- b+Yb? — 4ac 
2a 


D = (b? — 4ac)/4a? 


D>6 roots are real D< & roots are complex 





D>b 
b 
IF "> XKı=-—4ı/D 
2a 2a 
b 
De ae Xı=-—_/D. 
20 2a 
G 
X2= 
Äıa 
D<O 
-b 4ac — b? 
U+Vli= —ı ——; 
2a 2a 
Listing: 
READY. 


10 REM QUADRATISCHE GLEICHUNGEN 
30 PRINT"EINGABE DER WERTE A,B UND C 
40 INPUT A,B,C 

50 LET D=((B*2)-(4*AsC))/(4*A“2) 

60 IF D>=0 THEN 130 

70 LET X=-B/(2#A) 

80 LET Y=(SQR((4*A*C)-B“2))/(2#A) 

90 PRINT"DIE WURZELN SIND KOMPLEX" 
100 PRINT"REALTEIL="5X 


103 


104 


110 PRINT"IMAGINAERTEIL="5Y 
120 GOTO 220 
130 LET E=-B/(2#A) 
140 IF E>=0 THEN 170 
150 LET Z=E-SQOR(D) 
160 GOTO 180 
170 LET Z=E+SQR(D) 
180 LET W=C/(Z#A) 
190 PRINT"WURZELN SIND REELL" 
200 PRINT"ERSTE WURZEL="5Z 
210 PRINT"ZWEITE WURZEL=";W 
220 PRINT" zkrasrs ker" 
230 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
235 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 
240 INPUT L 
250 IF L=1 THEN 270 
250 STOP 
270 PRINT 
280 G0OTO 30 
290 END 
READY. 


Probelauf: 
EINGABE DER WERTE A,B UND GC 
ETNS 
WURZELN SIND REELL 
ERSTE WURZEL=-1 
ZWEITE WURZEL= 0 
KERKELFEREERIRTHRTI RER TEE 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 


1 
EINGABE DER WERTE A,B UND C 
10 10 10 
DIE WURZELN SIND KOMPLEX 
REALTEIL=-.3 
IMAGINAERTEIL= „866025404 
KERFEEEFRFFEFEFR FF FE RE RE KE 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMNENDE EIN 
d 
BREAK IN 260 
READY. 


Umwandlung 
rechtwinkliger 
Koordinaten in 
Polarkoordinaten 


Umwandlung rechtwinkliger in polare Koordinaten 
Mit diesem Programm werden rechtwinklige Koordinaten, welche von 
dem Anwender geliefert werden, in Polarkoordinaten umgerechnet. 









Formel: 
Y 
6 =TAN '— R =/X’+Y° 
X 
Listing: 
READY. 


10 REM UMWANDLUNG RECHTWINKLIGER IN POLARKOORDINATEN 
30 PRINT"RECHTWINKLIGE KOORDINATEN" 
a0 PRINT"X=" 

0 INPUT X 

60 PRINT"Y=" 

70 INPUT Y 

80 IF X+Y=0 THEN 150 

»0 IF X=0 THEN 180 

100 IF Y=0 THEN 250 

110 LET W=ATN(Y/X) 

120 LET W=(4#180)/3.14159 

130 LET R=5QR(X"2+Y"2) 

140 GOTO 310 

150 LET W=0 

160 LET R=0 

170 60T0 310 

180 IF Y>0 THEN 220 

190 LET W=-90 


105 


106 


200 LET R=ABS(Y) 

210 GOTD 310 

220 LET W=99 

230 LET R=Y 

240 GOTO 310 

250 X>0 THEN 290 

260 LET W=180 

270 LET R=ABS(X) 

280 GOTO 310 

290 LET W=0 

300 LET R=X 

310 PRINT"POLARKOORDINATEN" 

320 PRINT"WINKEL IN GRAD=";U 

330 PRINT"GROESSE=";R 

340 PRINT" strecke" 
350 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN” 
355 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 
360 INPUT L 

370 IF L=1 THEN 399 

380 STOP 

370 PRINT 

400 GOTD 409 

410 END 
READY. 


Probelauf: 


RECHTWINKLIGE KOORDINATEN 

{= 

Y= 10 

POLARKOORDINATEN 

WINKEL IN GRAD= 45.000038 

GROESSE= 14.1421356 
FEIERTE IRRE RER 

GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRANMENDE EIN 


= 34 

Y= 32 

FOLARKDORDINATEN 

WINKEL IN GRAI= 43.264332 
GROESSE= 468.6904702 


KERRERRRREREE RR IREEER 
GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRANMENDE EIN 

0 


BREAK IN 380 


Rechtwinklige 
Abschnitte 


Rechtwinklige Abschnitte 

In diesem Programm werden verschiedene Parameter berechnet. 
Trägheitsmoment, polares Trägheitsmoment und die Fläche des Ab- 
schnittes in Verbindung mit einem rechtwinkligen Abschnitt. 








Formel: 


bh? ie a ne 
u | und J sind in (inch*) angegeben 


ja Aistin (inch?) angegeben 


_ bh(b? + 4) 
12 





107 


108 


Listing: 
READY. 


10 REM RECHTWINKLIGE ABSCHNITTE 

15 REM DIESES PROGRAMM BERECHNET DIE VERSCHIEDENEN 
20 REM PARAMETER IM ZUSANMENHANG MIT RECHTWINKLIGEN 
25 REM ABSCHNITTEN 

30 PRINT"GRUNDLINIE="; 

40 INPUT B 

0 PRINT"HOEHE="; 

60 INPUT H 

70 LET I=(B#+(H’3))/12 

80 LET J=(B#H#*(B’2+H"2))/12 

90 LET A=B*H 

100 PRINT"TRAEGHEITSMOMENT=";I 

110 PRINT"POLARES TRAEGHEITSNOMENT="5J 

120 PRINT"FLAECHE DES ABSCHNITTES="5A 

130 PRINT 

140 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
145 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 

150 INPUT L 

160 IF L=1 THEN 180 

170 STOP 

180 PRINT 

170 60T0 30 

200 END 
READY. 


Probelauf: 


GRUNDLINIE= 3 

HOEHE= 9 

TRAEGHEITSMOMENT= 31.25 
POLARES TRAEGHEITSMOMENT= 42.5 
FLAECHE DES ABSCHNITTES= 19 


GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
d 


BREAkK IN 170 
READY. 





Entwicklung eines 
Widerstands- 
dämpfungsgliedes 


Entwicklung eines Widerstandsdämpfungsgliedes 

Dieses Programm berechnet die erforderlichen drei Widerstände zur 
Herstellung entweder eines Pi oder eines T-Typ-Widerstandsdäm- 
pfungsgliedes. Diese Art der Dämpfung erlaubt es dem Benutzer, 
den Verlust anders zu wählen, als es für einen minimalen Verlust er- 
forderlich wäre. 





Formel: 





Rın> Ro, and N = gewünschter Verlust 
Entsprechend grösser, als der minimale Verlust. 


2 
Minimumverlust =16hg| / zu 5 PT 1 
Ro Ro 








T-type 
2/N Rınko 
N-1l 


R: = 


109 


110 





Listing 
READY. 


REM ENTWICKLUNG EINES WIDERSTANDS-DAEMPFUNGS- 
REM GLIEDES. 
REM DIESES PROGRAMM BERECHNET DIE ERFORDERLICHEN 
REM CONMPONENTEN EINES PI-ODER T-TYP-WIDERSTANDS- 
REM DAEMPFUNGSGLIEDES 
PRINT"EINGANGSWIDERSTAND R(EIN)=", 
INPUT X 
PRINT"AUSGANGSWIDERSTAND R(0)="5 
INPUT Y 
LET Z=X/Y 
LET Q=(SQR(ZI+5QR(Z-1))"2 
LET M=10*(L06(@)/LOG(10)) 
PRINT"MINIMALER SYSTEMVERLUST IN DEZIBEL=";M 
PRINT"EINGABE DES GEWUENSCHTEN VERLUSTES IN" 
PRINT"DEZIBEL"; 
INPUT L 
LET N=10"(L/10) 
LET W=N-1 


160 LET U=N#+1 

170 LET A=2#(50R(X#Y#N))/W 

180 LET B=(X*+(U/W))-A 

170 LET C=(Y#(U/WI)-A 

200 LET D=(W#5QR( (XV) /ND)/2 

210 LET E=s1/t((U/W/X)-(1/D) 

220 LET F=1/(((U/W/N-(1/DD) 

230 PRINT"R{EINI=";X,"R(0)="5Y 

240 PRINT"GEWUENSCHTER VERLUST=";L 
250 PRINT 

260 PRINT"T - DAEMPFUNGSGLIED" 

270 PRINT"WIDERSTAND 1="5B 

280 PRINT"WIDERSTAND 2=";C 

290 PRINT"WIDERSTAND 3="5A 

300 PRINT 

310 PRINT"PI - DAEMPFUNGSGLIED 

320 PRINT"WIDERSTAND 1="5E 

330 PRINT"WIDERSTAND 2="5F 

340 PRINT"WIDERSTAND 3=";D 

350 FRINT 

360 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
365 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
370 INPUT Q 

380 IF Q=1 THEN 400 

390 STOP 

400 PRINT 

410 GOTO 40 

420 END 
READY. 


Probelauf: 

EINGANGSWIDERSTAND R{EIN)= 500 
AUSGANGSWIDERSTAND R(O)= 100 - 

MINIMALER SYSTEMVERLUST IN DEZIBEL= 12.5392594 
EINGABE DES GEWUENSCHTEN VERLUSTES IN 

DEZIBEL 20 

R{EIN)= SO0R(O)= 100 

GEWUENSCHTER VERLUST= 20 


T - DAEMPFUNGSGLIEND 

WIDERSTAND 1= 464.92792 
WIDERSTAND 2= 554.8471115 
WIDERSTAND 3= 45.1730905 


111 


112 


PI - DAEMPFUNGSGLIED 

WIDERSTAND 1= 879.552163 
WIDERSTAND 2= 107.543552 
WIDERSTAND 3= 11068.85365 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
d 


BREAK IN 390 
READY. 


Simultangleichun- 
gen mit zwei 
Unbekannten 


Simultan-Gleichungen mit zwei Unbekannten 
Der Anwender liefert die Komponenten von zwei Gleichungen der 
Art AX + BY =, außerdem gibt er dem Computer die Möglichkeit 
einer Meldung, falls die Lösung unmöglich ist. 








Formel: 


Listing: 
READY. 


10 REM SIMULTANGLEICHUNGEN MIT ZWEI UNBEKANNTEN 
30 PRINT"AX+BY=E" 
40 PRINT"CX+DY=F" 
»0 PRINT"EINGABE DER PARAMETER A,B,C,D,E,F" 
60 INPUT A,B,C,D,E,F 
’0 LET M=(AsD)-(B*C) 
80 IF M=0 THEN 140 
90 LET X=((E#+D)-(B#F))/M 
100 LET Y=((A#+F)-(E&C))/M 
110 PRINT"LOESUNG" ,"X="5X,"Y="5Y 
120 PRINT"z33++332322 2323 2 Hs RE KH KE REKEKE" 
130 60T0 160 
140 PRINT"KEINE LOESUNG ODER KEINE EINMALIGE" 
145 PRINT"LOESUNG EXISTIERT" 
150 PRINT"s232xx24222 EHE HH RE KK RE r" 
160 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
170 INPUT L 
180 IF L=1 THEN 200 
190 STOP 
200 PRINT 
210 60T0 30 
220 END 
READY. 


Probelauf: 


AX+BY=E 

CX+DY=F 

EINGABE DER PARAMETER A,B,C,D,E,F 
10 20 45 23 54 78 

LOESUNGX= .405970149Y= 2.59701493 

KK 

GEBE 1 FUER EINE ERNEUTE. BERECHNUNG EIN 
1 


AX+BY=E 

CX+DY=F 

EINGABE DER PARAMETER A,B,C,D,E,F 
10 10 2 2 45 23 

KEINE LOESUNG ODER KEINE EINMALIGE 


113 


114 


LOESUNG EXISTIERT 

KERREREEEEERRE EEE EEEH 

GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
0 


BREAK IN 190 
READY. 


Simultangieichun- 
gen mit 3 
Unbekannten 


Simultane Gleichungen mit drei Unbekannten 
Der Computer löst ein System von drei Gleichungen mit drei Unbe- 
kannten mit Hilfe der vom Benutzer eingegebenen Parameter. 








Listing: 


READY. 


10 REM SIMULTANE GLEICHUNGEN MIT DREI UNBEKANNTEN 

15 REM DIESES PROGRANM BERECHNET DIE LOESUNG 

20 REM EINES GLEICHUNGSSYSTEMS MIT DREI UNBEKANNTEN. 
25 REM DIE LOESUNG VON 3 GLEICHUNGEN MIT 3 UNBEKANNTEN 
30 REM LAUTET ALLGEHEIN: AX+BY+CZ=D 

50 PRINT"EINGABE DER ERSTEN GLEICHUNG(A,B,C,D) 

60 INPUT A1,B1,C1,Di 

?0 PRINT"EINGABE DER ZWEITEN GLEICHUNG(A,B,C,D)" 

80 INPUT A2,B2,C2,D2 

70 PRINT"EINGABE DER DRITTEN GLEICHUNG(A,B,C,D)" 

100 INPUT A3,B3,C3,D3 

110 LET Ei=((B1%A2)/A1)-B2 

120 LET E2=((C1#A2)/A1)-C2 

130 LET E3=((B1*A3)/A1)-B3 


140 LET E4=((C1#A3)/A1)-C3 
150 LET E5=((E1#E4)-(E2#E3)) 
160 IF E5=0 THEN 250 
170 LET Eö=((Di#A2)/A1)-D2 
180 LET E7=((Di*A3)/A1)-D3 
190 LET Y=((E6+E4)-(E2#E7))/ES 
200 LET Z=t(E1#E7)-(E6*E3) )/ES 
210 LET X=(DI/Al)-CBI/ANIEY)-CCC1/A1)*Z) 
220 PRINT"LOESUNG" 
230 PRINT"X="sX,"Ya"sy, "z=nsz 
240 60T0 260 
250 PRINT"UNZUREICHENDE ODER IRRTUEMLICHE DATEN-" 
255 PRINT"EINGABE" 
260 PRINT 
270 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
275 PRINT"GEBE 0 FUER DAS PROGRANMENDE EIN" 
280 INPUT L 
290 IF L=1 THEN 310 
300 STOP 
310 PRINT 
320 60T0 30 
330 END 

READY. 


Probelauf: 


EINGABE DER ERSTEN GLEICHUNG(A,B,C,D) 
1463 

EINGABE DER ZWEITEN GLEICHUNG(A,R,C,D) 

-3 8 0-2 

EINGABE DER DRITTEN GLEICHUNG(A,B,C,D) 
4326 

.DESUNG 

x= 2.64516129Y= „74193549427=- „435483871 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FÜUER DAS FROGRAMMENIDE EIN 
d 


BREAkK IN 300 
READY. 


113 


116 





Weltraumkrieg I 


Weltraumkriege 


Das Weltraum-Kriegsspiel , welches dieses Programm nachahmt, ist eine 
Schlacht zwischen zwei Schiffen, das eine ist der Feind, das andere 
der Spieler. Der Spieler hat die folgenden Möglichkeiten: Drehen des 
Schiffes, Bewegung des Schiffes, Abfeuern der Laser-Kanone, Ab- 
feuern des Lasers oder Selbstzerstörung. 
darin, den Feind zu vernichten. Der Feind ist ebenfalls mit einer La- 
serkanone bewaffnet. Wenn er auf Sie feuert, müssen Sie vorsichtig 
sein. 


Listing: 


READY. 


REM WELTRAUM-KRIEGE 

REM DIESES PROGRAM IST DAS SPIEL DER WELTRAUN- 
REM KRIEGE ZWEIER RAUMSCHIFFE. DU MUSST DEN 
REM FEIND ZERSTOEREN, UM DIE WELT ZU RETTEN 
PRINT"SIND ANWEISUNGEN ERFORDERLICH?" 
FRINT"GEBE ENTWEDER JA ODER NEIN EIN." 

INPUT A$ 

IF A$="JA" THEN 120 

IF A$="NEIN" THEN 250 


PRINT"NICHT VEREINBARTE EINGABE" 

GOTO 50 

PRINT 

PRINT"ES GIBT 5 AUSFUEHRUNGSKONMMANILOS." 
PRINT"DAS RAUMSCHIFF DREHEN(1),BEWEGEN(2) 
PRINT"FEURE DIE LASERKANONE AB(3),FEURE 
PRINT"DEN LASER AB(4),SELBSTZERSTDERUNG(5)" 
PRINT"DIE KANONE MUS5 INNERHALB VON 10 BIS" 
PRINT"70 GRAD ABGEFEUERT WERDEN, DAMIT SIE" 
PRINT"WIRKSAM IST. NEGATIVE GRADE DREHEN" 
PRINT"(DIE KANDNE) ENTGEGEN. 0 UND POSITIVE" 
PRINT"GRADE GEGEN 180. EINGABE NEGATIVER" 
PRINT"KM BEWEGT SIE AUF DEN FEIND ZU WAEHREND" 
PRINT"POSITIVE EINGABEN SIE VOM FEIND WEG" 
PRINT"BEWEGEN. DIE WIRKSAMKEIT DES LASERS IST" 
PRINT"ZUFAELLIG, AUFGRUND DER ABSCHIRMUNG UND" 


Der Sinn dieses Spieles liegt 


210 
220 
230 
240 
250 
260 
270 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
370 
400 
410 
420 
430 
440 
450 
A59 


470 
480 
470 
00 


320 
330 
>40 
J45 
300 


370 
>80 


389 
370 


PRINT"DER INTERSTELLAREN TRUEMMER,. 
PRINT 

PRINT"zrr2 Krk VIEL GLUECKFFRRRRE RER" 
PRINT"MOEGE BIE STAERKE MIT DIR SEIN" 
LET E1=1E04 

LET E2=E1 

LET D=1EO3+INT(SEOS#RND(I)) 

LET B=1+INTCI180*+RND(2)) 

GOSUB 3409 

GOSUB 390 

LET Ei=E1-D1 

GOSUB 500 

GOTO 490 

IF D>=1E05 THEN 370 

LET L=1 

GOTO 380 

LET L=0 

RETURN 

IF L=0 THEN 440 

LET H2=(1+INTC100#«RND(3)))/100 

LET D1=500*H2 


LET E2=E2-500 


GOTO 490 

LET MI=1+INTC2#RND(1)) 

IF Mi=1 THEN 470 

LET D1=1000 

GOTO 480 

LET D1=0 

LET E2=E2-1000 

RETURN 

PRINT 

PRINT"ABSTAND ZUM FEIND" SDS"KM" 
PRINT"FEILUNG IST",B,"GRAD" 

IF L=1 THEN 560 

PRINT"DER GEGNER HAT SEINE LASERKANDNE ABGE-" 
PRINT"FEUERT" 

b0TO 570 

PRINT"DER GEGNER HAT SEINEN LASER ABGEFEUERT" 
PRINT"DEINE GESAMTENERGIE IST NUN"JEIJ"EIN-" 
PRINT"HEITEN" 

PRINT"DER GEGNER HAT"5E2,"ENERGIEEINHEITEN" 
PRINT"ZUR VERFUEGUNG" 

IF Eis=0 THEN 620 


1147 
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600 
610 
620 
630 
639 
640 
690 
660 
670 
680 
670 
700 
710 
729 
730 
740 
750 
760 
Ad 
780 
770 
800 
805 
810 
820 
825 
830 
840 
850 
860 
870 
880 
890 
700 
710 
712 
720 


740 
750 
760 
760 
770 


IF E2<=0 THEN 550 

GOTO 680 

PRINT"DEINE VERFUEGBARE ENERGIE IST 0. 
PRINT"DER FEIND HAT GEWONNEN. DU HAST SEINE" 
PRINT"STAERKE VERSPUERT. 

GOTO 1180 

PRINT"DEM FEIND IST DIE ENERGIE AUSGEGANGEN" 
PRINT"DU HAST GEWONNEN" 

GOTO 1180 

RETURN 

PRINT 

PRINT"WELCHEN BEFEHL WILLST DU AUSFUEHREN" 
INPUT C 

ON C G0T0 730,840,1010,1100,1140 
PRINT"WIEVIEL GRAD DREHUNG?" 

INPUT B1 

IF B+Bi=0 THEN 800 

IF B+B1>180 THEN 820 

LET B=B+Bi 

LET Ei=E1-(10*+ABS(RI)) 

GOTO 290 

PRINT"DEINE EINGABE MUSS GROESSER ALS 0 GRAD" 
PRINT"SEIN" 

bOTO 730 

PRINT"DEINE EINGABE MUSS WENIGER ALS 181 GRAD" 
PRINT"SEIN" 

GOTO 730 

PRINT"WIEVIELE KM QUERDIAGDNAL?" 

INPUT K 

IF D+k=0 THEN 910 

IF D+K>1EO65 THEN 950 

LET D=D+K 

LET E1=E1-(10+ABS(K)) 

GOTO 290 

PRINT"DU HAST VERSUCHT DIE DISTANZ ZUM FEIND" 
PRINT"AUF 0 ZU VERRINGERN. DER BORDCOMPUTER" 
PRINT"COMPUTER WIRD DEIN MANDEVER NICHT AUS-" 
FRINT"FUEHREN" 

FRINT 

GOTO 840 

PRINT"DUHAST VERSUCHT DIE DISTANZ ZU UEBER" 
FRINT"SCHREITEN.IN DER DEINE WAFFEN EFFEKTIV" 
PRINT"SIND" 


780 PRINT"DER BORDCOMFUTER WIRDDIESES MANDEVER" 
790 PRINT"NICHT AUSFUEHREN" 
1000 GOT0O840 
1010 LET E1=E1-1000 
1020 IF B>=80 THEN 1050 
1030 FRINT"DEIN WINKEL IST VIEL ZU KLEIN, DU" 
1035 PRINT"HAST NICHT GETROFFEN!" 
1040 GOTO 290 
1050 IF Bs=100 THEN 1080 
1050 PRINT"DEIN WINKEL 15T ZU GROSS, DU HAST" 
1065 PRINT"NICHT GETROFFEN" 
1070 G0TD 290 
1080 LET E2=E2-1000 
1090 GOTO 290 
1100 LET Ei=E1-500 
11130 LET D2=(1+INTCI00+RND(2)))7100 
1120 LET E2=E2-(D2*500) 
1130 G60T0 290 
1140 PRINT"DUHAST DEM BORDCOMPUTER DEN BEFEHL" 
1142 PRINT"ZUR SELBSTZERSTOERUNG GEGEBEN.DER" 
1145 PRINT"REAKTOR WIRD KRITISCH. DU BISTGEGANGEN" 
1147 PRINT"DIE MACHT ZU TREFFEN. 
1170 IF D<=500 THEN 1200 
1180 PRINT"DER WELTRAUMKRIEG IST VORBEI" 
1190 GOTO1240 
1200 PRINT"DEINE SELSTZERSTOERUNG HAT AUCH DEN" 
1210 PRINT"GEGNER ZERSTOERT. DU WIRST ALS HELD IN" 
1220 PRINT"ERINNERUNG BLEIBEN" 
1230 G0TO 1180 
1240 PRINT 
1250 PRINT"FALLS DUWELTRAUMKRIEG WIEDER SPIELEN 
1255 PRINT"MOECHTEST GEBE JA EIN, WENN NICHT GEBE" 
1260 PRINT"NEIN EIN. 
1270 INPUT Z$ 
1280 IF Z$="JA" THEN 1310 
1290 PRINT"AUFWIEDERSCHAUEN!" 
1300 5TOP 
1310 PRINT 
1320 G0T050 
1330 END 
READY. 
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Probelauf: 


SIND ANWEISUNGEN ERFORDERLICH? 
GEBE ENTWEDER JA ODER NEIN EIN. 
JA 


ES GIBT 5 AUSFUEHRUNGSKONMANDOS. 

DAS RAUMSCHIFF DREHEN(1),BEWEGEN(2) 
FEURE DIE LASERKANONE AB(3),FEURE 

DEN LASER AB(4),SELBSTZERSTOERUNG (5) 
DIE KANONE MUSS INNERHALB VON 10 BIS 

70 GRAD ABGEFEUERT WERDEN, DAMIT SIE 
WIRKSAM IST. NEGATIVE GRADE DREHEN 

(DIE KANDNE) ENTGEGEN. 0 UND POSITIVE 
GRADE GEGEN 180. EINGABE NEGATIVER 

KM BEWEGT SIE AUF DEN FEIND ZU WAEHREND 
POSITIVE EINGABEN SIE VOM FEIND WEG 
BEWEGEN. DIE WIRKSAMKEIT DES LASERS IST 
ZUFAELLIG, AUFGRUND DER ABSCHIRMUNG UND 
DER INTERSTELLAREN TRUEMMER. 


Kerr IEL GLÜECKRRRRERRRE RE 
MDEGE DIE STAERKE MIT DIR SEIN 


ABSTAND ZUM FEIND 166424KM 

PEILUNG IST 456RAD 

DER GEGNER HAT SEINE LASERKANDNE ABGE- 
FEUERT 

DEINE GESAMTENERGIE IST NUN 9000EIN- 
HEITEN 

DER GEGNER HAT 9000ENERGIEEINHEITEN 
ZUR VERFUEGUNG 


WELCHEN BEFEHL WILLST DU AUSFÜEHREN 
3 

DEIN WINKEL IST VIEL ZU KLEIN, DU 

HAST NICHT GETROFFEN! 


ABSTAND ZUM FEIND 166424KM 

PEILUNG IST ASGRAD 

DER GEGNER HAT SEINE LASERKANONE ABGE- 
FEUERT 


DEINE GESAMTENERGIE IST NUN 8000EIN- 
HEITEN 

DER GEGNER HAT BOOVENERGIEEINHEITEN 
ZUR VERFUEGUNG 


WELCHEN BEFEHL WILLST DU AUSFUEHREN 
A 


ABSTAND ZUM FEIND 166424KM 

PEILUNG I5T 456GRAD 

DER GEGNER HAT SEINE LASERKANDNE ABGE- 
FEUERT 

DEINE GESAMTENERGIE I5T NUN 4500EIN- 
HEITEN 

DER GEGNER HAT 6880ENERGIEEINHEITEN 
ZUR VERFUEGUNG 


WELCHEN BEFEHL WILLST DU AUSFUEHREN 
2 

WIEVIELE KM QUERDIAGONAL? 
000 


ABSTAND ZUM FEIND 171424KM 

PEILUNG IST A5GRAD 

DER GEGNER HAT SEINE LASERKANDNE ABGE- 
FEUERT 

DEINE GESAMTENERGIE IST NUN-44500EIN- 
HEITEN 

DER GEGNER HAT S880ENERGIEEINHEITEN 
ZUR VERFUEGUNG 

DEINE VERFUEGBARE ENERGIE IST OD. 

DER FEIND HAT GEWONNEN. DU HAST SEINE 
STAERKE VERSPUERT. 

DER WELTRAUMKRIEG IST VORBEI 


FALLS DUWELTRAUMKRIEG WIEDER SPIELEN 
MOECHTEST GEBE JA EIN, WENN NICHT GEBE 
NEIN EIN. 

NEIN 

AUFWIEDERSCHAUEN! 


BREAK IN 1300 
READY. 
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Weltraumkrieg Il 


Weltraumkriege II 

Diese Computersimulierung erfordert ein beträchtlich größeres Spei- 
chervermögen, als irgendein anderes, in diesem Buch beschriebenes 
Programm. Für den Anwender, dessen Speichermöglichkeiten be- 
grenzt sind, gilt folgendes: Durch „Streichung‘' der REM-Befehle, 
Weglassung der Anweisungen und Reduzierung der Ausdrucks-Längen 
in den Mitteilungen, kann die Anforderung an die Speicherungsmög- 
lichkeit um 50 Prozent verringert werden. 


Listing: 
READY. 


10 REM WELTRAUMKRIEGE II 

60 PRINT"SIND ANWEISUNGEN ERFORDERLICH?" 

70 PRINT "GEBE ENTWEDER JA ODER NEIN EIN" 

80 INPUT n$ 

»0 IF A$="JA" THEN 140 

100 IF A$="NEIN" THEN 540 

110 PRINT"NICHT VEREINBARTE EINGABE!" 

120 G0T0 60 

140 PRINT"+#++2%3%*4%+#WUELTRAUM KRIEGE Tlrsrsikra" 
150 PRINT"DIE RAUMSTATION TODBESSTERN IST SEHR" 

160 PRINT"STARK ABGESCHIRMT UND HAELT MEHR FEUER-" 
170 PRINT"KRAFT AUFRECHT,ALS DIE HAELFTE DER, WELT" 
180 PRINT"MACHTFLOTTE BESITZT.IHRE VERTEIDIGUNGS-" 
170 PRINT"ANLAGEN SIND JEDOCH HAUPTSAECHLICH ZUR" 
200 PRINT"ABWEHR VON RAUNSCHIFFGROSSANGRIFFEN ENT" 
210 PRINT"WICKELT.EIN KLEINES GESCHWADER SOLLTE" 
220 PRINT"FAEHIG SEIN,DURCH IHRE ABWEHRSCHIRME ZU" 
30 PRINT"SCHLUEPFEN. IHR AUFTRAG-TODESSTERN VER-" 
240 PRINT"NICHTEN!AUF SEINER OBERFLAECHE IST EINE" 
250 PRINT"SCHMALE ABZUGSDEFFNUNG FUER DIE WAERME." 
260 PRINT"EIN TREFFER IN DIESE DEFFNUNG WUERDE IM" 
270 PRINT"REAKTOR DER RAUMSTATION EINE KETTENREA-" 
280 PRINT"KTION AUSLOESEN WELCHE ZUR ZERSTOERUNG" 
270 PRINT"DER RAUMSTATION FUEHREN WUERDE. 

300 PRINT"++++#++3*2+2DIE KOMMANDOS SIND: HH rar" 
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310 
320 
330 
340 
340 
350 
360 
70 


370 
600 
610 
620 
625 
630 
640 
650 
660 
670 
680 
670 
790 
710 
720 
730 
740 
750 
760 
79 
780 
70 
800 
810 
820 


840 
850 
860 
870 
880 
870 
900 
710 


PRINT"(1)ABFEUERN DES HOCHENERGIETORPEDOS 
PRINT"(2)ABFEUERN DER LASERKANDNE 
PRINT"(3)ABFEUERN DES LASER 
PRINT"(4)ANTRIEB DES X-GESCHWADERS 
LET X1=5E05 

LET T1=1E04 

LET T2=5E£04 

LET DB=1E05 

GOSUB 530 

GOSUB 730 

GOSUB 830 

GOSUB 1040 

GOSUB 1500 

GOTL 580 

IF D>1EO4 THEN 660 

LET L=1 

GOTD 709 

LET L=0 

LET H=(1+INTCI00*RNDE1)))/100 
LET E1=5000*H 

G0TO 720 

LET H=(1+INTC100#=RND(1)9) 7100 
LET E1=1000*H 

RETURN 

IF D>SEO3 THEN 760 

LET K=1 

GOTO 800 

LET K=0 

LET H=(1+INT(100#RND(12)9/109 
LET E2=8000*H 

GOTO 820 

LET H=(1+INTEI00#RNDE1))92/100 
LET E2=3000#H 

RETURN 

IF D<3E03 THEN 860 

LET E3=0 

GOTO 880 

LET H=(1+INTC100#RND(E1)))/109 
LET E3=2E04*H 

LET T1=T1-E1 

LET T2=T2-E2 

IF Tis=0 THEN 720 

GOTO 950 


123 


124 


720 
930 
740 


760 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1045 
1050 
1060 
1065 
1070 
1080 
1085 
1090 
1100 
1110 
1120 
1130 
1140 
1145 
1150 
1160 
1165 
1170 
1180 
1185 
1199 
1200 
1210 
1220 
1230 
1240 
1245 
1247 
1250 
1260 


LET Ei=0 
LET Y=1 

GOTD 960 

LET Y=0 

IF T2<=0 THEN 980 

60T 1010 
LET E2=0 
LET Z=1 

G0TO 1020 

LET Z=0 

LET X1=X1-E1-E2-E3 

RETURN 

PRINT"ABSTAND ZUM TODESSTERN ="5D; "KM" 

IF Y=1 THEN 1100 

IF L=0 THEN 1080 

PRINT"FEINDLUFTSCHIFF HAT SEINEN LASER" 
PRINT"ABGEFEUERT" 

GOTO 1110 

PRINT"FEINDLUFTSCHIFF HAT SEINE LASERKANDNE" 
PRINT"ABGEFEUERT" 

GOTO 1110 

PRINT"FEINDLUFTSCHIFF IST ZERSTOERT" 

IF Z=1 THEN 1180 

G0TO 1220 

IF K=0 THEN 1160 

PRINT"DER DARK LORD HAT SEINEN LASER-" 
PRINT"ENERGIESTRAHL ABGEFEUERT" 

60TO 1360 

PRINT"DER SMITH LORD HAT EINEN LASER-" 
PRINT"KANDNENENERGIESTRAHL BENUTZT" 

GOTO 1360 

PRINT"GARTH RADER HAT SEINEN GANZEN ENERGIE-" 
PRINT"VORRAT VERBRAUCHT. ER IST GEGENWAERTIG" 
PRINT"ANS WELTRAUMENDE ENTKONMEN." 
PRINT"#+#**334*3%DIE KRAFT IST MIT DIRFIHEHKERKK" 
GOTO 1350 

LET C=i+rt5#RND(1)) 

ON C G60TD 1240,1270,1290,1310,1330 
PRINT"=VORSICHT+GARTH RADER IST DER BESTE" 
PRINT"SCHUETZE DER VEREINIGTEN FLOTTE. DAZU" 
PRINT"GEBRAUCHT ER DIE SCHLECHTE SEITE DER" 
PRINT"KRAFT" 

GOTO 1130 


1270 
1280 
1270 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1370 
1400 
1405 
1410 
1415 
1420 
1430 
1440 
1450 
1460 
1465 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1615 
1520 
1630 
1640 
1650 


PRINT"DER DARK LORD IST EXTREM GEFAEHRLICH! IT" 
GOTO 1130 

PRINT"#VORSICHT#RADER IST UNMENSCHLICH GENAU." 
G0OTO 1130 

PRINT"SMITH LORD’S PREZISION IST FURCHTBAR" 
G0TO 1130 

PRINT"RABER“S ANGRIFFSCOMPUTER HAT DEINEN" 
PRINT"KURS ERRECHNET.SEINE WAFFEN SIND BEREIT" 
GOTO 1130 

IF D<=3E03 THEN 1380 

GOTO 1419 

PRINT"DU BIST WENIGER ALS 3000KM ZU DER RAUM-" 
PRINT"STATION. DES TODESSTERN’S AUTOMATISCHES" 
PRINT"VERTEIDIGUNGSNETZWERK WURDE AKTIVIERT." 
PRINT"#+#++*2**GEBRAUCHE EXTREME VORSICHTFHRR HK" 
PRINT 

PRINT"DEINE GESAMTENERGIE=";X1, "EINHEITEN" 

IF X1s2E04 THEN 1140 

GOTO 1490 

PRINT"DU HAST DEINE GEWAEHRTE ENERGIE VER-" 
PRINT"BRAUCHT.DER TODESSTERN WILL NUN DEINEN " 
PRINT"PLANETEN ANGREIFEN.DU WIRST EIN HELD" 
PRINT"SEIN UND DEIN BESTES GEBEN MUESSEN." 
PRINT"#*+*%*3DU HAST DIE KRAFT MISSBRAUCHT#KA«" 
GOTO 2690 

RETURN 

PRINT 

PRINT"WELCHES KOMMANDO WILLST DU AUSFUEHRENT" 
INPUT B 

ON B G0OTO 1540,16890,2030,2320 

IF D<=1000 THEN 1590 

PRINT"DU HAST EIN TORPEDO VERSCHWENDET.DU" 
PRINT"BIST WEITER ALS 1000KM ENTFERNT." 

LET X1=X1-2E04 

GOTO 2580 

LET H=1+(INTCI00*RND(1))) 

IF H>=50 THEN 1640 

PRINT"DU WIRST BEINE KRAFT GEBRAUCHEN.DU HAST" 
PRINT"NICHT GETROFFEN" 

LET X1=X1-2E04 

GOTO 26880 

PRINT"DIE KRAFT WAR MIT DIR. DU HAST GANZ AL-" 
PRINT"LEINE DEN TODESSTERN ZERSTOERT.DU HAST" 
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PRINT"DIE REPUBLIK GERETTET UND PRINZESSIN 
PRINT"LEAH ARGONA WIRD DICH FUER IMMER LIEBEN" 
GOTO 2740 

PRINT"DIE KANONE IST BEREIT.SOLL DIR DER CON-" 
PRINT"PUTER BEISTEHEN? GEBE JA ODER NEIN EIN" 
INPUT C$ 

IF C$="JA" THEN 1820 

IF C$="NEIN" THEN 1880 

PRINT"NICHT VEREINBARTE EINGABE!" 

GOTO 1700 

PRINT"WELCHEN KAEMPFER? DEN LUFTGEGNER(L)" 
PRINT"ODER RADER(R)" 

INPUT C$ 

IF 6$="L" THEN 1840 

IF C$="R" THEN 1860 

PRINT"WELCHER??TT?T" 

GOTO 1760 

LET 0=5000 

GOTO 1760 

LET T1=T1-8 

GOTO 1760 

LET T2=T2-8 

GOTO 1960 

PRINT"WELCHEN KAEMPFER WILLST DU BESCHIESSEN?" 
PRINT"RADER(R) ODER DEN LUFTGEGNER(L)" 

INPUT C$ 

LET 0=5000#((1+INTC100*+RND(1)))/100) 

IF C$="L" THEN 1980 

IF C6$="R" THEN 2000 

PRINT"WELCHEN FEIND???" 

GOTO 1880 

LET X1=X1-5500 

GOTO 2860 

LET T1=T1-8@ 

60TO 2010 

LET T2=T2-8 

LET X1=X1-5000 

GOTO 2660 

PRINT"DU HAST DICH ENTSCHLOSSEN DEN LASER ZU" 
PRINT"BENUTZEN. COMPUTERHILFE? JA ODER NEIN!" 
INPUT C$ 

IF C$="JA" THEN 2100 

IF C$="NEIN" THEN 2120 


2080 
20970 
2100 
2110 
2120 
2130 
2140 
2150 
2180 
2170 
2180 
2170 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2390 
2360 
2370 
2380 
2385 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2470 
2480 
2490 
2500 


PRINT"DER COMPUTER VERSTEHT NUR JA ODER NEIN!" 
GOTO 2040 

LET J=1 

GOTO 2130 

LET J=0 

PRINT"WELCHEN KAEMPFER WILLST DU BESCHIESSEN?" 
PRINT"RADER{R) ODER DEN LUFTGEGNER(L) 

INPUT C$ 

IF J=1 THEN 2190 

LET Q=1000#((1+INTCI00*+RND(1)))7/100) 

GOTO 2200 

LET 0=1000 

IF C$="L" THEN 2240 

IF C$="R" THEN 2260 

PRINT"WELCHES ZIEL?? 

GOTO 2130 

LET T1=T1-Q 

G0TO 2270 

LET T2=T2-8 

IF J=1 THEN 2300 

LET X1=X1-1000 

GOTO 2640 

LET X1=X1-1509 

GOTO 2660 

PRINT"WIEVIELE ENERGIEEINHEITEN MOECHTEST DU," 
PRINT"UM DIE HYPER-ATONARE ANTRIEBSEINHEIT ZU" 
PRINT"BEWEGENT(TEINHEIT/IKM) *VORSICHT+ZUVIEL" 
PRINT"ENERGIE WIRD DEN REAKTOR UEBERHITZEN." 
PRINT"GEBE NIE MEHR ALS 22500 EINHEITEN EIN." 
INPUT F 

PRINT"WELCHE RICHTUNG? VORWAERTS(V) ODER" 
PRINT"RUECKWAERTS{R)" 

PRINT"BEZOGEN AUF DEN TODESSTERN" 

INPUT C$ 

IF F>2.25E04 THEN 2470 

IF C$="R" THEN 2500 

IF C$="V" THEN 2620 

PRINT"WEISST DU NICHT IN WELCHE RICHTUNG?" 
GOTO 2380 

PRINT"DU HAST";FS"ENERGIEEINHEITEN VERBRAUCHT" 
PRINT"DER REAKTOR IST KRITISCH UEBERHITZT" 
GOTO 2640 

LET D=D+F 
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2510 
2520 
2540 
2590 
2560 
2570 
2980 
2570 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
26970 
2700 
2710 
2720 
2725 
2730 
2740 
2745 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2865 
2870 
REAUY. 


IFD>=1.5E05 THEN 2540 

GOTO 2840 

PRINT"WOHIN GEHST DU? DIE SCHLACHT IST IN 
PRINT"IN DER ENTGEGENGESETZTEN RICHTUNG" 

GOTO 2640 

PRINT"DU BIST IM DUNKLEN STERN ZERTRUEHMERT I" 
PRINT"WO LERNTEST DU DAS FLIEGEN? RADER" 
PRINT"LACHT UEBER DICH" 

PRINT"x#xx3x#3+3+*+DU HAST VERLORENFHRFHRRRR Re" 
GOTO 2690 

LET D=D-F 

IF D<=0 THEN 2570 

LET X1=X1-F 

GOTO 2880 

PRINT"LUFTKAEMPFER’S ENERGIE"STI,"EINHEITEN" 
PRINT"DARK LORB’S ENERGIE IST",T2,"EINHEITEN" 
RETURN 

PRINT"DU BIST EIN UNFAEHIGER GUTER RITTER. DU" 
PRINT"HAST DIE ERINNERUNG AN OBI-WAN KENORI 
PRINT"ENTEHRT!! AUF WESSEN SEITE WARST DU?" 
PRINT"WARUM PRUEFTEST DU DEINEN WERT NICHT" 
PRINT"UND VERSUCHTEST ES WIEDER?" 

b0OTO 2760 

PRINT"OBI-WAN KENOBI WUERDE STOLZ AUF DICH " 
PRINT"SEIN" 

PRINT"DU BIST IN DER TAT EIN *GUTER RITTER*" 
PRINT 

PRINT"WILLST DU NOCH EINMAL KAEMPFEN? GEBE JA" 
PRINT"ODER NEIN EIN" 

INPUT L$ 

IF L$="JA" THEN 2840 

IF L$="NEIN" THEN 28540 

PRINT"WILLST DU NUN SPIELEN ODER NICHT?" 

G0TO 2779 

PRINT 

GOTO 80 

PRINT"VIELLEICHT SPIELEN WIR EINMAL WIEDER???" 
PRINT"*#*#*MDEGE DIE KRAFT MIT DIR SEIN!xHEıK«" 
END 


Probelauf: 


SIND ANWEISUNGEN ERFORDERLICH? 
GEBE ENTWEDER JA ODER NEIN EIN 
NEIN 


SIND ANWEISUNGEN ERFORDERLICH? 

GEBE ENTWEDER JA ODER NEIN EIN 

JA 

FrrrERKHerHWELTRAUM KRIEGE Ilrrrarrkrrr 
DIE RAUMSTATION TODESSTERN IST SEHR 
STARK ABGESCHIRMT UND HAELT MEHR FEUER- 
KRAFT AUFRECHT,ALS DIE HAELFTE DER WELT 
MACHTFLOTTE BESITZT.IHRE VERTEIDIGUNGS- 
ANLAGEN SIND JEDOCH HAUPTSAECHLICH ZUR 
ABWEHR VON RAUMSCHIFFGROSSANGRIFFEN ENT 
WICKELT.EIN KLEINES GESCHWADER SOLLTE 
FAEHIG SEIN,DURCH IHRE ABWEHRSCHIRME ZU 
SCHLUEFFEN.IHR AUFTRAG-TODESSTERN VER- 
NICHTEN!AUF SEINER OBERFLAECHE IST EINE 
SCHMALE ABZUGSDEFFNUNG FUER DIE WAERME. 
EIN TREFFER IN DIESE OEFFNUNG WUERDE IM 
REAKTOR DER RAUMSTATION EINE KETTENREA- 
KTION AUSLOESEN WELCHE ZUR ZERSTOERUNG 
DER RAUMSTATION FUEHREN WUERDE. 

+43 H3KkEDIE KOMMANDOS SIND: HH FH KR rer % 
(1)ABFEUERN DES HOCHENERGIETORPEDOS 
(2)ABFEUERN DER LASERKANONE 

(3)ABFEUERN DES LASER 

(A)ANTRIEB DES X-GESCHWADERS 


SIND ANWEISUNGEN ERFORDERLICH? 

GEBE ENTWEDER JA ODER NEIN EIN 

NEIN 

ABSTAND ZUM TODESSTERN = 100000KM 
FEINDLUFTSCHIFF HAT SEINE LASERKANONE 
ABGEFEUERT 

#VORSICHT#RADER IST UNMENSCHLICH GENAU. 
DER SMITH LORD HAT EINEN LASER- 
KANONENENERGIESTRAHL BENUTZT 
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DEINE GESAMTENERGIE= A91800EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
A 

WIEVIELE ENERGIEEINHEITEN MDECHTEST DU, 

UM DIE HYPER-ATOMARE ANTRIEBSEINHEIT ZU 

BEWEGENT(IEINHEIT/IKM)#VORSICHT*ZUVIEL 

ENERGIE WIRD DEN REAKTOR UEBERHITZEN. 

GEBE NIE MEHR ALS 22500 EINHEITEN EIN. 
22500 

WELCHE RICHTUNG? VORWAERTS(V) ODER 

RUECKWAERTS(R) 

BEZOGEN AUF DEN TODESSTERN 

V 

ABSTAND ZUM TODESSTERN = 77500KM 

FEINDLUFTSCHIFF HAT SEINE LASERKANONE 

ABGEFEUERT 

#VORSICHT#*RADER I5T UNMENSCHLICH GENAU. 

DER SMITH LORD HAT EINEN LASER- 

KANONENENERGIESTRAHL BENUTZT 


BEINE GESAMTENERGIE= 462790EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
2 

DIE KANDONE IST BEREIT.SOLL DIR DER COM- 

PUTER BEISTEHEN? GEBE JA ODER NEIN EIN 

JA 

WELCHEN KAEMPFER? DEN LUFTGEGNER(L) 

ODER RADER(R) 

R 

LUFTKAEMPFER’S ENERGIE A4250EINHEITEN 

DARK LORD’S ENERGIE IST 36040EINHEITEN 

ABSTAND ZUM TODESSTERN = 77500KM 

FEINDLUFTSCHIFF IST ZERSTOERT 

#VORSICHT#GARTH RADER IST DER BESTE 

SCHUETZE DER VEREINIGTEN FLOTTE. DAZU 

GEBRAUCHT ER DIE SCHLECHTE SEITE DER 

KRAFT 

DER SMITH LORD HAT EINEN LASER- 

KANDNENENERGIESTRAHL BENUTZT 


DEINE GESAMTENERGIE= 457210EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
3 

DU HAST DICH ENTSCHLOSSEN DEN LASER ZU 

BENUTZEN. COMPUTERHILFE? JA ODER NEIN! 

JA 

WELCHEN KAEMPFER WILLST DU BESCHIESSEN?T 

RADER(R) ODER DEN LUFTGEGNER(L) 

k 

LUFTKAEMPFER’S ENERGIE-11S50EINHEITEN 

DARK LORD’S ENERGIE IST 35960EINHEITEN 

ABSTAND ZUM TODESSTERN = 77500KM 

FEINDLUFTSCHIFF IST ZERSTOERT 

#VORSICHT#GARTH RADER IST DER BESTE 

SCHUETZE DER VEREINIGTEN FLOTTE. DAZU 

GEBRAUCHT ER DIE SCHLECHTE SEITE DER 

KRAFT 

DER SMITH LORD HAT EINEN LASER- 

KANONENENERGIESTRAHL BENUTZT 


DEINE GESAMTENERGIE= 4501 90EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
2 

DIE KANONE IST BEREIT.SOLL DIR. DER COM- 

FUTER BEISTEHEN? GEBE JA ODER NEIN EIN 

JA 

WELCHEN KAEMFFER? DEN LUFTGEGNER(L) 

ODER RADER(R) 

R 

LUFTKAEMPFER’S ENERGIE-1700EINHEITEN 

DARK LORD“S ENERGIE IST 25440EINHEITEN 

ABSTAND ZUM TODESSTERN = 77500KM 

FEINDLUFTSCHIFF IST ZERSTOERT 

*VORSICHT#GARTH RADER IST DER BESTE 

SCHUETZE DER VEREINIGTEN FLOTTE. DAZU 

GEBRAUCHT ER DIE SCHLECHTE SEITE DER 

KRAFT 

DER SMITH LORD HAT EINEN LASER- 

KANDNENENERGIESTRAHL BENUTZT 


DEINE GESAMTENERGIE= 440770EINHEITEN 
WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
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4 
WIEVIELE ENERGIEEINHEITEN MOECHTEST DU, 
UM DIE HYPER-ATOMARE ANTRIEBSEINHEIT ZU 
BEWEGEN?T(IEINHEIT/IKM)#VORSICHT*ZUVIEL 
ENERGIE WIRD DEN REAKTOR VEBERHITZEN. 
GEBE NIE MEHR ALS 22500 EINHEITEN EIN. 
22500 
WELCHE RICHTUNG? VORWAERTS(V) ODER 
RUECKWAERTSCR) 
BEZOGEN AUF DEN TODESSTERN 
V 
ABSTAND ZUM TODESSTERN = 55000KM 
FEINDLUFTSCHIFF IST ZERSTOERT 
SHITH LORD’S PREZISION IST FURCHTBAR 
DER SMITH LORD HAT EINEN LASER- 
KANDNENENERGIESTRAHL BENUTZT 


DEINE GESAMTENERGIE= A15950EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
2 

DIE KANDNE IST BEREIT.SOLL DIR DER COM- 

PUTER BEISTEHEN? GEBE JA ODER NEIN EIN 

JA 

WELCHEN KAEMPFER? DEN LUFTGEGNER(L) 

ODER RADER(R) 

R 

LUFTRAEMPFER’S ENERGIE-95S0EINHEITEN 

DARK LORD’S ENERGIE I5T 14200EINHEITEN 

ABSTAND ZUM TODESSTERN = SS000KM 

FEINDLUFTSCHIFF IST ZERSTOERT 

*VORSICHT#+RADER IST UNMENSCHLICH GENAU. 

DER SMITH LORD HAT EINEN LASER- 

KANONENENERGIESTRAHL BENUTZT 


DEINE GESAMTENERGIE= 408450EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
4 

WIEVIELE ENERGIEEINHEITEN MOECHTEST DU, 

UM DIE HYFER-ATOMARE ANTRIEBSEINHEIT ZU 

BEWEGEN?(TEINHEIT/IKM)*VORSICHT+ZUVIEL 

ENERGIE WIRD DEN REAKTOR UEBERHITZEN. 


GEBE NIE MEHR ALS 22500 EINHEITEN EIN. 
22500 

WELCHE RICHTUNG? VORWAERTS(V) ODER 

RUECKWAERTS(R) 

BEZOGEN AUF DEN TODESSTERN 

V 

ABSTAND ZUM TODESSTERN = 32500KM 

FEINDLUFTSCHIFF IST ZERSTOERT 

#VORSICHT*GARTH RADER IST DER BESTE 

SCHUETZE DER VEREINIGTEN FLOTTE. DAZU 

GEBRAUCHT ER DIE SCHLECHTE SEITE DER 

KRAFT 

DER SMITH LORD HAT EINEN LASER- 

KANDNENENERGIESTRAHL BENUTZT 


DEINE GESAMTENERGIE= 380030EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
A 

WIEVIELE ENERGIEEINHEITEN MOECHTEST DW, 

UM DIE HYPER-ATOMARE ANTRIEBSEINHEIT ZU 

BEWEGEN? CIEINHEIT/IKM)*VORSICHT+ZUVIEL 

ENERGIE WIRD DEN REAKTOR VEBERHITZEN. 

GEBE NIE MEHR ALS 22500 EINHEITEN EIN. 
22500 

WELCHE RICHTUNG? VORWAERTSCV) ODER 

RUECKWAERTSCR) 

BEZOGEN AUF DEN TODESSTERN 

v 

ABSTAND ZUM TODESSTERN = 10000KHM 

FEINDLUFTSCHIFF IST ZERSTOERT 

RADER’S ANGRIFFSCONPUTER HAT DEINEN 

KURS ERRECHNET.SEINE WAFFEN SIND BEREIT 

DER SMITH LORD HAT EINEN LASER- 

KANONENENERGIESTRAHL BENUTZT 


DEINE GESAMTENERGIE= 354330EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
1 

DU HAST EIN TORPEDO VERSCHWENDET „DU 

BIST WEITER ALS 1000KM ENTFERNT. 

ABSTAND ZUM TODESSTERN = 10000KM 
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FEINDLUFTSCHIFF IST ZERSTOERT 

GARTH RADER HAT SEINEN GANZEN ENERGIE- 
VORRAT VERBRAUCHT. ER IST GEGENWAERTIG 
ANS WELTRAUMENDE ENTKONHEN. 
+#*42+++3#3DIE KRAFT IST MIT DIRKFHKEKKH+ + 


DEINE GESANTENERGIE= 334330EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
2 

DIE KANDNE IST BEREIT.SOLL DIR DER COM- 

FUTER BEISTEHEN? GEBE JA ODER NEIN EIN 

JA 

WELCHEN KAEMPFER? DEN LUFTGEGNER(L) 

ODER RADER(R) 

R 

LUFTKAEMFFER’S ENERGIE-17840EINHEITEN 

DARK LORD”S ENERGIE IST-7280EINHEITEN 

ABSTAND ZUM TODESSTERN = 10000KM 

FEINDLUFTSCHIFF IST ZERSTOERT 

GARTH RADER HAT SEINEN GANZEN ENERGIE- 

VORRAT VERBRAUCHT. ER IST GEGENWAERTIG 

ANS WELTRAUMENDE ENTKOMMEN. 

Ertl IE KRAFT IST MIT DIRKFEHEREKH 


DEINE GESAMTENERGIE= 328830EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
4 

WIEVIELE ENERGIEEINHEITEN MOECHTEST WU, 

UM DIE HYPER-ATOMARE ANTRIEBSEINHEIT ZU 

BEWEGENT(TIEINHEIT/IKM)#VORSICHT*ZUVIEL 

ENERGIE WIRD DEN REAKTOR VEBERHITZEN. 

GEBE NIE MEHR ALS 22500 EINHEITEN EIN. 
300 

WELCHE RICHTUNG? VORWAERTS(V) ODER 

RUECKWAERTS(R) 

BEZOGEN AUF DEN TODESSTERN 

U 


ABSTAND ZUM TODESSTERN = 9500KM 
FEINDLUFTSCHIFF IST ZERSTOERT 

GARTH RADER HAT SEINEN GANZEN ENERGIE- 
VORRAT VERBRAUCHT. ER IST GEGENWAERTIG 


ANS WELTRAUMENDE ENTKOMMEN. 
Krk DIE KRAFT IST MIT DIRKKRRRRRES 


DEINE GESAMTENERGIE= 328330EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
1 

DU HAST EIN TORPEDO VERSCHWENDET.DU 

BIST WEITER ALS 1000KM ENTFERNT. 

ABSTAND ZUM TODESSTERN = P500KM 

FEINDLUFTSCHIFF IST ZERSTOERT 

GARTH RADER HAT SEINEN GANZEN ENERGIE- 

VORRAT VERBRAUCHT. ER IST GEGENWAERTIG 

ANS WELTRAUMENDE ENTKOMMEN. 

+ REDIE KRAFT IST MIT DIRFrrRHrr Hr 


DEINE GESAMTENERGIE= 308330EINHEITEN 


WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
ä 

WIEVIELE ENERGIEEINHEITEN MOECHTEST DU, 

UM DIE HYPER-ATOMARE ANTRIEBSEINHEIT ZU 

BEWEGENFCTIEINHEIT/IKN)#VORSICHT#ZUVIEL 

ENERGIE WIRD DEN REAKTOR VEBERHITZEN. 

GEBE NIE MEHR ALS 22500 EINHEITEN EIN. 
9000 

WELCHE RICHTUNG? VORWAERTS(V) ODER 

RUECKWAERTS{R) 

BEZOGEN AUF DEN TODESSTERN 

U 


ABSTAND ZUM TODESSTERN = S00KM 
FEINDLUFTSCHIFF IST ZERSTOERT 

GARTH RADER HAT SEINEN GANZEN ENERGIE- 
VORRAT VERBRAUCHT. ER IST GEGENWAERTIG 
ANS WELTRAUMENDE ENTKOMMEN. 
KERERKERKDIE KRAFT IST MIT DIRKFRERErR + 
DU BIST WENIGER ALS 3000KM ZU DER RAUM- 
STATION. DES TODESSTERN’S AUTOMATISCHES 
VERTEIDIGUNGSNETZWERK WURDE AKTIVIERT. 
+*44%%4GEBRAUCHE EXTREME VORSICHTFr#+HtH+H+#+ 


DEINE GESAMTENERGIE= 294730EINHEITEN 
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WELCHES KOMMANDO WILLST DU AUSFUEHREN? 
1 

DIE KRAFT WAR MIT DIR. DU HAST GANZ AL- 

EINE DEN TODESSTERN ZERSTOERT.DU HAST 

DIE REPUBLIK GERETTET UND FRINZESSIN 

LEAH ARGONA WIRD DICH FUER IMMER LIEBEN 

OBI-WAN KENOBI WUERDE STOLZ AUF DICH 

SEIN 

DU BIST IN DER TAT EIN #GUTER RITTER* 


WILLST DU NOCH EINMAL KAENPFEN? GEBE JA 
ODER NEIN EIN 

NEIN 

VIELLEICHT SPIELEN WIR EINMAL WIEDER?TT? 
##3%*+*M0EGE DIE KRAFT MIT DIR SEIN!sHrr% 


READY. 


Geradlinige 
Herabsetzungen 


Geradlinige Herabsetzung 
Dieses Programm berechnet den Wert der Herabsetzung eines Postens 
mit Hilfe der geradlinigen Methode. 








Formel: 
X. = letzter laufender Wert 
D= Herabsetzung pro Jahr 
X, = neuer laufender Wert 
X.= D=X, 

Listing: 

READY. 


10 REM GERADLINIGE HERABSETZUNG 

15 REM DIESES PROGRAMM BERECHNET DEN WERT DER 
20 REM HERABSETZUNG NIT HILFE DER GERADLINIGEN 
25 REM METHODE 

30 PRINT"URSPRUNGSWERT=", 

a0 INPUT A 


0 PRINT"LEBENSZEIT IN JAHREN="; 

60 INPUT B 

70 LET C=A/B 

80 PRINT" JAEHRLICHE HERABSETZUNG=";C 
970 PRINT 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
205 
210 
220 
230 
240 
250 
260 


PRINT" JAHR", „"WERT" 

LET X=0 

LET X=X+H1 

LET A=A-C 

IF A<O THEN 160 

GOTO 170 

LET A=0 

PRINT X,,A 

IF X<B THEN 120 

PRINT" Kar Kr" 
PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 
INPUT L 

IF L=1 THEN 240 

5TOP 

PRINT 

6070 30 

END 


READY. 
Probelauf: 


URSFRUNGSWERT= 10009 
LEBENSZEIT IN JAHREN= 12 
JAEHRLICHE HERABSETZUNG= 833.333333 


JAHRWERT 
1 9166.66667 


oO N. m on > ol I 


0333.33334 
7500 
5656 .66667 
2833.33334 
3000 
4166.66667 
3333.33333 
2500 


10 1666.64667 
11 833.333334 
12 4.769837158E-07 
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RER RE RER 
GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER IAS PROGRAMMENDE EIN 

d 


BREAkK IN 230 
READY. 


Vektor 
Kreuzprodukt 


Vektor-Kreuzungsprodukt 

Wenn A (A,, A,, A») und B (B,, B,, B,) zwei dreidimensionale 
Vektoren darstellen, dann ist das Kreuzungsprodukt von A und B 
durch Ax B bezeichnet. Das Programm antwortet mit einer Lösung, 
welche durch X, Y und Z dargestellt wird. 























Formel: 
A:A; Aids AıA2 
AxB= u 
B»B;|, BiBs|, | BiBa 
= (A:Bs — AsB:, ABı — AıBs, AıBa — AsBı) 
Listing: 
READY. 


10 REM VEKTORKREUZPRODUKT 

15 REM DIESES PROGRAMM BERECHNET DAS KREUZ- 

20 REM PRODUKT VON ZWEI VEKTOREN 

30 PRINT"EINGABE DES ERSTEN VEKTORS(A1,A2,A3)" 
40 INPUT A1,A2,A3 

50 PRINT"EINGABE DES ZWEITEN VEKTORS(BI1,B2,B3) 
60 INPUT B1,B2,B3 

70 LET X=(A2x*B3)-(A3+B2) 

80 LET Y=(A3#+B1)-(A1*B3) 

90 LET Z=(A1*B2)-(A2*B1) 

100 PRINT"VEKTORKREUZPRODUKT" 


110 PRINT"X="5X,"YatsY,"Z=952Z 
120 PRINT"+rr+tHHr HH tt" 
130 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
135 PRINT"GEBE 0 FUER DAS PROGRANKENDE EIN" 
140 INPUT L 
150 IF L=1 THEN 170 
160 STOP 
170 PRINT 
180 G0TO 30 
190 END 
READY. 


Probelauf: 


EINGABE DES ERSTEN VEKTORS(CA1,A2,A3) 
10 11 10 
EINGABE DES ZWEITEN VEKTORS(B1,B2,B3) 
434 
VEKTORKREUZPRODUKT 
X= 14Y= 07=-14 
rt 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRANHENDE EIN 


EINGABE DES ERSTEN VEKTORS(A1,A2,A3) 
12 23 34 
EINGABE DES ZWEITEN VEKTORS(BI1,B2,B3) 
23 41 67 
VEKTORKREUZPRODUKT 
X= 147Y=-222=-37 
HH 
GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
0 


BREAK IN 160 
READY. 
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Vektor, Skalar 
und Norm 


Vektor Skalar und Norm 
Dieses Programm berechnet das Vektor-Skalarprodukt, welches auch 
als Skalarprodukt und den Normen von zwei Vektoren bekannt ist. 


Formel: 
A = (A1,A2,As)und B (B1,B2,B:) sind zwei Vektoren 


NORM von Ä ist mit Al und B mit Bl bzeichnet. 


Al=VAR +A?=4% 
Bj =VB: +B?’+B? 


— 


A«B =AıBı +ABBı +AB3 
Listing: 
READY. 


10 REN VEKTOR SKALAR UND NORM 

30 PRINT"EINGABE DES ERSTEN VEKTORS(A1,A2,A3) 
40 INPUT A1,A2,A3 

0 PRINT"EINGABE DES ZWEITEN VERTORS(BI,B2,B3) 
60 INPUT Bi1,B2,B3 

80 LET X=SQR((A1”2)+(A2”2)+(A3"2)) 

100 LET Y=SQR((BI”2)+tB2"2)+(B3"2)) 

120 LET Z=(AlsBi)+(A2#+B2)+(A3*B3) 

130 PRINT"SKALARPRODUKT="5Z 

140 PRINT"NORM DES ERSTEN VEKTORS="5X 

150 PRINT"NORM DES ZWEITEN VEKTORS="5Y 

160 PRINT" 32422222 ke" 
170 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
175 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 

180 INPUT L 

190 IF L=1 THEN 210 


200 STOP 
210 PRINT 
220 G0T0 30 
230 END 
READY. 


Probelauf: 


EINGABE DES ERSTEN VERTORS(A1,A2,A3) 
234 
EINGABE DES ZWEITEN VEKTORS(BI,B2,B3) 
67 
SKALARFRÜDUKT= 56 
NORM DES ERSTEN VERTORS= 5.38516481 
NORM DES ZWEITEN VEKTORS= 10.4980885 
FEREREREKEERREEREFFEFTPEIR RR 
GEBE I FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS FROGRAMMENDE EIN 
Ö 


BREAK IN 200 
READY. 


Mathematikdhrili 


Mathematikdrill 

Mit diesem Programm können die 4 Grundrechenarten (Addieren, 
Dividieren, Multiplizieren, Subtrahieren) geübt werden. Es bietet 
Schülern die Möglichkeit, Ihre Mathematikkenntnisse zu verbessern. 





Listing: 
READY. 


> REM MATHENATIK-DRILL 

6 REM VON JEDER GRUNDRECHNUNGSART SIND 15 

?” REM BERECHNUNGEN DURCHZUFUEHREN. 

8 REM DANACH WIRD DIE ANZAHL DEINER RICHTIGEN 
? REM LOESUNGEN ADDIERT. 

10 REM SPITZE BLEISTIFT UND PAPIER 

12 PRINT"ADDITION (12" 
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13 PRINT"SUBTRAKTION (2) 


14 PRINT"M 
15 PRINT"D 
16 INPUT Z 
20 IF Z1 
30 IF Z=1 
a0 IF Z=2 
0 IF Z=3 
60 IF Z=4 
65 IF Z>4 
70. PRINT 
80 E=0 

0 6=0 

100 A=INT( 


200 IF B=C 
220 E=E+#1 


ULTIPLIKATION (3)" 
IVISION (4)" 


THEN 999 
THEN PRINT"ADDITIONS-DRILL" 
THEN PRINT"SUBTRAKTIONS-DRILL" 


THEN PRINT"MULTIPLIKATIONS-DRILL" 
THEN PRINT"DIVISIONS-DRILL" 
THEN 20 
RND(8)#*150) 
RND(9)*100) 
THEN PRINT" ht 
THEN PRINT" ar rast, 
THEN PRINT" aid, =" 
THEN PRINT" "AB, "/"5A,"=", 
C 
THEN B=AtB 
THEN B=A#B 
THEN 300 


230 PRINT"DIE ANTWORT IST";B 


300 IF 6%1 


> THEN 100 


310 PRINT"DEINE PUNKTZAHL IST";(15-E)+6.6666 


320 IF E<2 
330 IF E>5 


THEN PRINT"DAS IST GROSSARTIG" 
THEN PRINT"DU BRAUCHST MEHR PRAXIS" 


340 PRINT"GEBE 1 FUER EINE ERNEUTE UEBUNG EIN” 
350 PRINT"WENN DIR DIE 4 GRUNDRECHENARTEN KEINE" 
335 PRINT"SCHWIERIGKEITEN MEHR BEREITEN TIPPE 0" 
360 INPUT L 


370 IF L=1 

777 STOP 

1000 END 
READY. 
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THEN 12 


Probelauf: 


ABBITION (1) 
SUBTRAKTION (2) 


MULTIPLIKATION (3) 


DIVISION (4) 
3 


MULTIPLIKATIONS-DRILL 


21X 97= 100 
DIE ANTWORT IST 
133X 46= 100 
DIE ANTWORT IST 
125X 92= 100 
DIE ANTWORT IST 
61X 64= 1000 
DIE ANTWORT IST 
35X 54= 100 
DIE ANTWORT IST 
16X 50= 100 
DIE ANTWORT IST 
131X 83= 100 
DIE ANTWORT IST 
20X 21= 10 
DIE ANTWORT I5T 
19X 17= 10 
DIE ANTWORT IST 
76X 38= 10 
DIE ANTWORT IST 
ASX 89= 10 
DIE ANTWORT IST 
66X 75= 10 
DIE ANTWORT IST 
77X 30= 10 
DIE ANTWORT IST 
79X 77= 10 
DIE ANTWORT IST 

19X 3= 10 
DIE ANTWORT IST 
DEINE PUNKTZAHL 


2037 


A118 


11500 


366 


1890 


380 


10873 


420 


239 


3648 


2699 


49750 


2719 


?315 


37 
IST O 


DU BRAUCHST MEHR PRAXIS 

GEBE I FUER EINE ERNEUTE VEBUNG EIN 
WENN DIR DIE 4 GRUNDRECHENARTEN KEINE 
SCHWIERIGKEITEN MEHR BEREITEN TIPPE 9 
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ABDITION (1) 
SUBTRAKTIDN (2) 
MULTIPLIKATION (3) 
DIVISION (4) 

1 
ADDITIONS-DRILL 


75+ 73= 148 

135+ 21= 156 

139+ 16= 145 
DIE ANTWORT IST 159 

7A+ 66= 140 

132+ 70= 202 

42+ 78= 150 
DIE ANTWORT IST 140 

27+ 19= 46 

139+ 92= 231 

116+ 72= 188 

12+ 81= 93 

30+ 77= 107 

101+ 26= 127 

41+ 83= 124 

14+ 77= 91 

75+ 71= 146 
DEINE PUNKTZAHL IST 94.4458 
GEBE 1 FUER EINE ERNEUTE UERUNG EIN 
WENN DIR DIE 4 GRUNDRECHENARTEN KEINE 
SCHWIERIGKEITEN MEHR BEREITEN TIPPE 9 


ADDITION (1) 
SUBTRAKTION (2) 
MULTIPLIKATION (3) 
DIVISION (4) 

2 
SUBTRAKTIONS-DRILL 


195- 74= 81 
74- 49= 45 
185- 140= 45 
104- 79= 25 
102- 67= 35 
8i- 8i= 0 


140- 65= 75 

100- 15= 85 

27- 1= 56 

30- 5= 25 

122- 29= 93 

178- 88= 90 

116- 19= 97 

106- 80= 26 

119- 115= 4 
DEINE PUNKTZAHL IST 99.999 
DAS I5T GROSSARTIG 
GEBE 1 FUER EINE ERNEUTE UEBUNG EIN 
WENN DIR DIE 4 GRUNDRECHENARTEN KEINE 
SCHWIERIGKEITEN MEHR BEREITEN TIPPE 0 


BREAK IN 999 


READY. 
®@® 
Flachen- 


Flächenberechnung 
Durch Eingabe der verschiedenen Parameter können beliebige Flächen- 
inhalte von Rechtecken, Dreiecken und Kreisen berechnet werden. 


Rechteck b c© b 
| 
a 
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Listing: 
READY. 


10 REM FLAECHENBERECHNUNG 

20 PRINT"GEBE EIN: ENTWEDER RECHTECK,DREIECK" 
25 PRINT"ODER KREIS" 

2? PRINT"FUER PROGRAMMENDE GEBE STOP EIN" 
30 INPUT A$ 

60 IF A$="RECHTECK" THEN 130 

70 IF A$="DREIECK" THEN 180 

80 IF A$="KREIS" THEN 240 

100 G0OTO 320 

130 PRINT"GEBE BREITE UND LAENGE EIN"; 
140 INPUT A,B 

150 LET Z=A#+B 

160 GOTO 300 

180 PRINT"GEBE DIE LAENGE DER 3 SEITEN AN" 
170 INPUT A,B,c 

200 LET 5=.5%(AtB+C) 

210 LET Z=5QR(5#+(5-A)#+(5-B)#(5-C)) 

220 GOTO 300 

240 PRINT"GEBE DEN DURCHMESSER EIN" 

250 INPUT D 

260 LET 2=3.141592%D" 2/4 

300 PRINT"FLAECHE VOM "5A$," IST",Z 

310 G60T0 20 

320 STOP 

330 END 
READY. 


Probelauf: 


GEBE EIN: ENTWEDER RECHTECK,DREIECK 
OBER KREIS 

FUER PROGRAMMENDE GEBE STOP EIN 
RECHTECK 

GEBE BREITE UND LAENGE EIN 12.5 2.5 
FLAECHE VOM RECHTECK IST 31.25 

GEBE EIN: ENTWEDER RECHTECK,DREIECK 
OBER KREIS 

FUER PROGRAMMENDE GEBE STOP EIN 
DREIECK 


GEBE DIE LAENGE DER 3 SEITEN AN 
>68 

FLAECHE VOM DREIECK IST 14.9812383 
GEBE EIN: ENTWEDER RECHTECK,DREIECK 

ÜDER KREIS 

FUER PROGRAHMMENDE GEBE STOP EIN 

STOP 


BREAK IN 320 


Farbcode für 
Widerstände 


Farbcode für Widerstände 
Dieses Programm berechnet anhand der Farbcodeeingabe den zuge- 
hörenden Ohmwert. 


Farben Multiplikation Toleranz 


schwarz 
braun 
rot 
orange 
gelb 
grün 
blau 
violett 
grau 
weiß 
silber 
gold 


x 10000 _ 
x 100000 — 
x 1000000 — 


0 
1 
2 
3 
A 
5 
6 
F 
8 
9 


| 
+ 
1 
s 
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Toleranzband 
Wertebänder \ 


\ 


Multiplikationsband 


Listing: 


READY. 


10 REM FARBCODE FUER WIDERSTAENDE 
15 REM DIESES PROGRAMM ERRECHNET AN HAND DER 
20 REM FARBEINGABE DEN WIDERSTANDSWERT 


370 
400 
410 
420 
430 
435 
440 
450 
460 
470 
480 
470 
>00 
10 
320 
230 
240 
41 
342 
2u0 
60 
370 
80 
370 
600 


PRINT 

PRINT"EINGABE DES FARBCODES.TRENNE JEDE FARB-" 
PRINT"EINGABE MIT KOMMA. 
PRINT"IST KEINE TOLERANZANGABE VORHANDEN,GERE" 
PRINT"NEIN EIN." 

PRINT 

INPUT A$,B$,C$,D$ 

X$=A$ 

GOSUR 541 

A=X 

X$=B$ 

GOSUR 541 

B=X 

X$=C6$ 

GOSUR 541 

[=X 

GOTO 870 

IF X$="SILBER" THEN 661 
IF X$="60LD" THEN 663 

IF X$="SCHWARZ" THEN 670 
IF X$="BRAUN" THEN 690 
IF X$="ROT" THEN 710 

IF X$="ORANGE" THEN 730 
IF X$="GELB" THEN 750 

IF X$="GRUEN" THEN 770 


610 
620 
630 
640 
650 
660 
661 
662 
663 
664 
670 
680 
690 
700 
710 
720 
730 
740 
750 


MN 
780 
790 
800 
810 
820 
830 
840 
890 
860 
870 
880 
700 
710 
720 
730 
735 
740 
790 
90 
760 
770 
775 


IF X$="BLAU" THEN 790 


IF X$="VIOLETT" THEN 810 
IF X$="GRAU" THEN 830 
IF X$="WEISS" THEN 850 
PRINT"UNGEEIGNETE EINGABE" 
STOP 

{=-2 

GOTO 840 

X=-1 

GOTO 850 

X=0 

GOTO 860 

X=1 

GOTO 880 

X=2 

GOTO 880 

X=3 

GOTO 860 

X=4 

GOTO 880 

X=9 

GOTO 860 

X=6 

GOTO 8460 

X=7 

GOTO 856 

X=8 

GOTO 860 

X=7 

RETURN 

J$=5TR$(A) 

K$=5TR$(B) 
J=VAL(J$+K$) 

J=J#10°C 

IF D$="SILBER" THEN 979 
IF D$="GOLD" THEN 990 
IF D$="ROT" THEN 1005 
IF D$="NEIN" THEN 1010 
PRINT"UNGEEIGNETE EINGABE" 
PRINT 

Top 

PRINT J"10 % TOLERANZ" 
PRINT 
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780 G0TO 1020 

770 PRINT J"5 % TOLERANZ" 
775 FRINT 

1000 G60TD 1020 

1005 PRINT J"2 % TOLERANZ" 
1006 PRINT 

1007 G0TD 1020 

1010 PRINT J"20 % TOLERANZ" 
1011 PRINT 


1020 PRINT"GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN" 
1021 PRINT"GEBE 0 FUER DAS PROGRAMMENDE EIN" 


1022 INPUT L 
1023 IF L=1 THEN 390 
1024 STOP 
1050 END 
READY. 
Probelauf: 


EINGABE DES FARBCODES.TRENNE JEDE FARB- 
EINGABE MIT KOMMA. 

IST KEINE TOLERANZANGABE VORHANDEN,GEBE 
NEIN EIN. 


ORANGEORANGEGELBSILBER 
33000010 % TOLERANZ 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
1 


EINGABE DES FARBCODES.TRENNE JEDE FARB- 
EINGABE MIT KOMNA. 

IST KEINE TOLERANZANGABE VORHANDEN,GEBE 
NEIN EIN. 


SCHWARZBRAUNSCHWARZGÜLD 
15 % TOLERANZ 


GEBE 1 FUER EINE ERNEUTE BERECHNUNG EIN 
GEBE 0 FUER DAS PROGRAMMENDE EIN 
d 


BREAK IN 1024 
READY. 


Farbcode für 
Widerstände 





Farbcode für Widerstände 
Dieses Programm berechnet anhand des Ohmwertes die zugehörige 
Farbcodierung. 


Der Einfachheit halber dürfen nur Ohmwerte größer-gleich 10 Ohm 
eingegeben werden. 

Der Zusammenhang zwischen Ohmwert und Farbcode ist aus dem 
vorangegangenen Beispiel ersichtlich. 


Listing: 
READY. 


3 REM FARBCDDE FUER WIDERSTAENDE 

6 REM DIESES PROGRAMM ERRECHNET ANHAND DES 

? REM WIDERSTANDSWERTES DIE FARBCODIERUNG 

8 REM ES LASSEN SICH NUR WIDERSTANDSWERTE VON 
7 REM 10 OHM AB FARBCODIEREN 

15 PRINT"UNRECHNUNG VOM WIDERSTANDSWERT AUF" 
20 PRINT"FARBEODE" 


120 
125 
130 
140 
150 
160 
170 
180 
181 
182 
183 
184 
185 
190 
200 


PRINT"EINGABE DES WIDERSTANDSWERTES" 
PRINT"BEDINGUNG: GROESSER GLEICH 10 OHM" 
INPUT VY 

V=INT(ABS(V)) 

V$=STR$(V) 

L=LEN(V$) 

E$=LEFT$(V$,2) 

F$=LEFT$(V$,3) 

A=VAL(E$) 

B=VAL(F$) 

D=B-10xA 

F$=STR$(D+) 

E$=STR$(A+) 

I=L-2 

RESTORE 
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210 FOR J=1 TO VAL(ES) 
220 READ K$ 

230 NEXT J 

240 E$=K$ 

250 RESTORE 

260 FOR J=1 TO VAL(FS) 
270 READ K$ 

280 NEXTJ 

290 F$=K$ 

300 RESTORE 

310 J$=MID$(V$,3) 

320 J=LEN(J®) 

330 FOR H=1 TO J 

340 READ K$ 

345 NEXT H 

350 J$=K$ 

355 PRINT 

360 PRINT"WIDERSTANDSFARBLODE FUER";V 


370 PRINT ES," "sF$," "3%," ","20 % TOLERANZ" 
375 PRINT 


380 5TOP 
1030 DATA SCHWARZ,BRAUN,ROT,ORANGE,GELB 


1040 DATA GRUEN,BLAU,VIOLETT,GRAU,WEISS 
1050 END 
READY. 


Probelauf: 

UMRECHNUNG VOM WIDERSTANDSWERT AUF 
FARBCODE 

EINGABE DES WIDERSTANDSWERTES 


BEDINGUNG: GROESSER GLEICH 10 OHM 
10 


WIDERSTANDSFARBCODE FUER 10 
BRAUN SCHWARZ SCHWARZ 20 % TOLERANZ 


BREAK IN 380 
READY. 


UMRECHNUNG VOM WIDERSTANDSWERT AUF 
FARBCODE 


EINGABE DES WIDERSTANDSWERTES 


BEDINGUNG: GROESSER GLEICH 10 OHM 
60000 


WIDERSTANDSFARBCODE FUER 550000 
GRUEN BLAU GELB 20 % TOLERANZ 


BREAK IN 380 
READY. 
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TBB - Handbuch Band 1 , W. Hofacker 


Transistor Berechnungs- und Bauanleitungshandbuch Band 1 


Das Handbuch für jeden Elektroniker. Rechenbeispiele, Berechnungsgrundlagen, Bauanlei- 
tungen, Nomogramme, Tabellen und Vergleichslisten aus den wichtigsten Bereichen der 
Elektronik. Ein Buch zum Einarbeiten in die Elektronik. Ein Buch zum Nachschlagen. 
Grundlagen Digitaltechnik, Netzgeräte und Transformatorenberechnung, Berechnung 

von Multivibratoren, Schmitt Trigger u. v. a. Über 130 Seiten. DM 19,80 


TBB - Handbuch Band 2 , W.Hofacker 


Transistor Berechnungs- und Bauanleitungshandbuch Band 2 


Dieses Buch ist die Fortsetzung des erfolgreichen Handbuches TBB-Handbuch Band 1. 
Ein Buch, das sich in der Hand des Praktikers bestens bewährt hat. Weitere neueste 
Schaltbeispiele und Berechnungsgrundlagen. Experimentier- und Versuchsbeschreibungen. 
Integrierte Spannungsregler, Wärmeableitung, Operationsverstärker Einführung, RC- 
Zeitglieder, Transistortester u. v.a. DM 19,80 


Elektronik im Auto , H. Gebauer 


Ein Buch für jeden technisch interessierten Autofahrer. Es zeigt Ihnen die vielen Möglich- 
keiten zur Verbesserung von Sicherheit, Leistung und Fahrkomfort in Ihrem Auto. 
Thyristorzündung, Drehzahlmesser, Beschleunigungsmesser, Geschwindigkeitswarner, 
Batterieladegerät u. v. a. Tips, genaue Beschreibungen, Bauanleitungen. DM 9,80 


IC - Handbuch ‚ C. Lorenz 
Handbuch für digitale und lineare integrierte Schaltungen. 


Sensationelle Neuheit. Ein Handbuch für digitale und lineare Schaltkreise. Daten- und 
Auswahllisten, Vergleichslisten, Gehäuseformen, Grundlagen, Einführungsbeschreibungen, 
viele Schaltbeispiele, Bauanleitungen, Printvorlagen, u. v. a. 

Alles über TTL-Technik, C MOS, MOS-Schaltungen, Uhren ICs, lineare Schaltungen, ein 
Chip-Rechner, integrierte NF-Verstärker u. v. a. DM 19,80 


IC - Datenbuch ‚,D. Steinbach 


Daten- und Auswahllisten der gebräuchlichsten integrierten Schaltkreise. Digital und 
analog. Gerade bei ICs ist es wichtig die Anschlußfolgen genau zu kennen. Auf über 

55 Seiten finden Sie: Die wichtigsten TTL-Schaltkreise, C-Mos Serie, lineare Schaltungen 
wie Operationsverstärker, Komparatoren, NF-Verstärker, Spannungsregler, Trigger- 
schaltungen, Impulsgeber u. v. a. Weiterhin finden Sie eine C Mos-Vergleichsliste sowie 
Kurzdaten und logisches Verhalten dieser CMOS Elemente. Das IC-Datenbuch wird 
auch Ihnen ein unentbehrlicher Begleiter bei allen Arbeiten mit integrierten Schaltungen 


sein, DM 9,80 


IC - Schaltungen ‚D.Steinbach 


Hier finden Sie eine gelungene Zusammenstellung der wichtigsten Anwendungsbeispiele 
aus dem Bereich der integrierten Schaltungen. TTL — C MOS — Linear. Alle Schaltungen 
sind übersichtlich und klar dargestellt und mit einer kurzen, jedoch sehr genauen Be- 
schreibung versehen. Viele Schaltungen sind Grundschaltungen, die man beim Umgang 
mit integrierten Schaltungen immer wieder benötigt. Tastenentprellung, Zähler, Impuls- 
geber, Codierer, Dekodierer, Datenübertragung, Serien-Parallel-Wandler, Digitalvoltmeter 


u.v.a. DM 9,80 
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Elektronik Schaltungen, 
4. völlig neu überarbeitete Auflage, W. Hofacker 


Die ideale Schaltungssammlung zum Basteln und Experimentieren. Schaltungen mit 
Operationsverstärkern, Spannungsreglern, TTL, C-MOS Schaltkreisen. MOS Uhr mit 
Wecker, elektronischer Würfel, Musik Synthisizer, Timer 555 Anwendungen, Experi- 
mentieranleitungen und viele andere hochinteressante Schaltbeispiele tIw. mit Print- 
vorlage. 64 Seiten Inhalt. DM 5, - 


IC - Bauanleitungs -Handbuch -IC -KIT , 
C.Lorenz 


Ein Bauanleitungsbuch mit vielen hochinteressanten Bauanleitungen aus dem Bereich der 
LSI Schaltungstechnik. Schaltbeispiele mit Printvorlagen zum Selbstherstellen der Leiter- 
platten mit genauesten Beschreibungen. Hochaktuell und brandneu: Funktionsgenerator 
XR 2206, MOS-Uhr mit Wecker, Schlummerautomatik und programmierbarem Weckton- 
generator, Sensortastenwahl, IC-Netzteil, Funktionsgenerator 8038 neuartige Transistor- 
zündung, 35 W NF-Verstärker, Experimentieranleitung und Grundkurs über Flip Flops, 
Experimente mit Digitalschaltungen u. v. a. Zu allen Schaltungen finden Sie Platinvor- 
lagen oder Sie können die Experimentierschaltungen auf der Experimentierplatine 

WH-1 g durchführen. Über 125 Seiten. DM 19,80 


Experimentierplatine mit Sockel, Stecker und Füßen TypWH-ig 
für 40,28,24,16 und 14 polige DIL -Gehäuse DM 79,- 


Feldeffekttransistoren, C. Lorenz 


Der Feldeffekttransistor (FET) gehört heute zu den interessantesten Bauteilen überhaupt. 
Wie man damit experimentiert, wie man seine Funktion versteht und wie man damit 
brauchbare und hochinteressante Schaltungen aufbauen kann, zeigt Ihnen dieses Buch. 
Grundlagen, Kennlinienfelder, Tabellen, Berechnungsgrundlagen, Rechenbeispiele, An- 
schlußbilder und eine Vergleichsliste für Feldeffekttransistoren bilden den Kern dieser 
umfangreichen Darstellung. Alles in allem finden Sie hier eine praxisnahe und komplette 
Arbeitsunterlage, mit der Sie im Beruf und auch im Hobby erfolgreich arbeiten können. 
Über 45 Seiten. DM 5, -—- 


Elektronik und Radio, C. Lorenz 
4. Auflage. Völlig neu bearbeitet und stark erweitert. 


Eine Einführung in die Radiotechnik, wie man sie nicht alle Tage findet. Eine sehr ge- 
schickt gemachte Einführung mit vielen Schaltungen, Bauanleitungen und genauesten 
Funktionsbeschreibungen. Vom einfachen Diodenempfänger (Detektor) bis zu interes- 
santen Sender- und Empfängerschaltungen. (Minispione) Viele hundert Bilder zeigen 
Ihnen genau, wie Sie beim Experimentieren vorgehen müssen. IC-Radio, IC-Sender, 
Antennen, Berechnungsgrundlagen, Tabellen u. v. a. Über 150 Seiten DM 19,80 


IC -Niederfrequenzverstärker , C.Lorenz 


Grundlagen der integrierten NF-Verstärker, Berechnung von kompletten IC-NF-Verstärker- 
stufen. Anwendungsbeispiele mit den interessantesten und gebräuchlichsten Standard 

IC-N F-Verstärkern wie TBA 800, TBA 830, usw. Printvorlagen, Auswahltabellen, Experi- 
mentieranleitungen und Anschlußbilder machen dieses Buch zu einem unentbehrlichen 
Begleiter für alle, die sich mit NF-Verstärkern beschäftigen wollen. Über 65 Seiten. 


DM 9,80 
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BIS BUCH, Beispiele integrierter Schaltungen, 
H.Bemstein 


Auf über 130 Seiten Anwendungsbeispiele mit integrierten Schaltkreisen. Zeitgeber 555, 
Funktionsgenerator ICL 8038, Opto Elektronik, Operationsverstärker, Analogschalter, 
Digital-Analog-Wandler, Analoge Rechenbausteine, Schreib-Lese-Speicher (RAM), Fest- 
wertspeicher (ROM), Speicherschaltungen, Uhrenbausteine u. v.a. DM 19,80 


HEH, Hobby Elektronik Handbuch ‚ C. Lorenz 


Das Schaltungsbuch für jeden Hobbyelektroniker. Schaltbeispiele und Bauanleitungen 
aus dem gesamten Hobbybereich. Lichtorgeln, Eiswarngerät fürs Auto, Alarmanlagen, Me- 
tallsuchgerät, PLL-Schaltungen, Logik-Tester, Funktionsgeneratoren u. v. a. Über 


55 Seiten. DM 9,80 


IC - Vergleichsliste , C.Lorenz 
Vergleichsliste für digitale und lineare integrierte Schaltkreise. 


Standard TTL, Low Power Schottky TTL,C MOS, Triacs Thyristoren, Optoelektronik, 
Operationsverstärker, Spannungskomparatoren, Spannungsregler, NF-Verstärker u. v.a. 
Funktionsvergleichsliste CMOS zu TTL. Vergleichstabelle für Transistoren und Dioden 
sowie Darlingtontransistoren. Eine Vergleichsliste, die man immer wieder braucht. 


DM 29,80 


Opto -Handbuch, Handbuch für Opto- 
elektronik , C. Lorenz 


Das Handbuch für die gesamte Optoelektronik. Eine Einführung und ein ideales Nach- 
schlagwerk. Grundlagen, Definitionen aller Kenngrößen, Opto-Lexikon, Berechnungs- 
grundlagen, Rechenbeispiele, Schaltbeispiele: Lichtsender, Lichtempfänger, Anzeigen, 
Infrarot Detektoren, Lichtmeßgerät, Optokoppler, Pegelschalter, Opto-Vergleichsliste. 
Anschlußbilder wichtiger 7-Segment-Anzeigen u. v. a. Über 106 Seiten. DM 19,80 


C MOS Einführung, Entwurf, Schaltbeispiele, 
Teil 1, H.Bernstein 


Vom C MOS Gatterbaustein über Schieberegister und Zähler bis hin zum C MOS Schreib- 
Lesespeicher. Insgesamt werden neunzehn interessante und bekannte C MOS Schaltkreise 
beschrieben. Zu jedem Bauelement sind genaue Daten, Schaltbild und Anwendungsbei- 
spiele angegeben. Im großen Applikationsteil finden Sie: C MOS-Kippstufen, Addierwerke 
und Rechenschaltungen, Digital Analog Wandler, Schieberegister für analoge Spannungen, 
Multiplexsysteme für analoge Signale u. v. a. Eine komplette Einführung und gut geeignet 
für das Selbststudium der C MOS Technik. Über 140 Seiten. DM 19,80 


C MOS Entwurf und Schaltbeispiele, 
Teil 2 , H.Bernstein | 


Fortsetzung von Teil 1. Anwendungsbeispiele mit genauen Schaltungsbeschreibungen und 
Bauelementeunterlagen. Daten, Anschlußbelegungen weiterer wichtiger hochintegrierter 

C MOS Elemente. Ein komplettes Arbeits- und Experimentierbuch. C-MOS Uhrenschaltun- 
gen, Schieberegisterschaltungen, Parallel-Serien Umsetzung, statische und dynamische 
Speicherschaltungen, Zählschaltungen, Digital Analog Wandler, Analog Digital Wandler, 
Digital Voltmeter, I/O Registerschaltungen, Codier und Dekodierschaltungen. RAM und 
ROM Anwendungen. Über 140 Seiten. DM 19,80 


See LE 


C MOS Entwurf und Schaltbeispiele, Teil 3, 
H. Bemstein 


Fortsetzung von Teil 2. Eine sehr umfangreiche Applikationssammlung mit hochintegrier- 
ten C MOS Elementen. Rechnerschaltungen, Speicher- und Steuerschaltungen, Multiplex- 
und Datenbussysteme, Uhrenschaltungen, PLL-Schaltungen, Liquid Cristal Anzeigen und 
deren Treiberschaltungen, Optoelektronik in Verbindung mit C MOS. Grundlagen, Auf- 
bau und Wirkungsweise der Prozeßrechentechnik, Arithmetische Logische Einheiten (ALU) 
und andere wichtige Funktionen aus der Prozeßrechentechnik. RAMs, ROMs und FIFO- 
Speicherschaltungen. Über 140 Seiten. DM 19,80 


IC Experimentier Handbuch - IC -EX, C. Lorenz 
C. Lorenz 


Eine sehr umfangreiche Schaltungssammlung und Bauanleitunssammlung mit neuesten 
integrierten Bausteinen. Neue, jedoch beim Fachhandel erhältliche Standard ICs. Rechner- 
schaltungen, Mikroprozessoren, I/O Schaltungen, druckende und anzeigende Rechner, 
Stoppuhren, Zählerschaltungen, Digitalvoltmeter, professioneller Synthisizer, Hilfsschal- 
tungen für den Elektronik Experimenter, Analog Digital Wandler, Frequenzzähler u. v.a. 
hochinteressante Bauanleitungen. Viele Schaltungen können auf der IC KIT Experimen- 
tierplatine WH—1g aufgebaut werden. Über 120 Seiten. DM 19,80 


Operationsverstärker, Grundlagen und 
Schaltbeispiele , C. Lorenz 


Dieses Buch umfaßt das gesamte Gebiet der linearen Schaltungstechnik und stellt ein in 
dieser Preislage bisher noch nie dagewesen Nachschlagwerk und Einführungshandbuch dar. 
Bestens geeignet für das Selbststudium. Nach einer pädagogisch geschickt gemachten Ein- 
führung folgen theoretische Arbeitsunterlagen und die zugehörigen Schaltbeispiele mit 
Daten und Gehäuseanschlüssen. Dieses wertvolle Buch dürfte seinen Platz auch bei Ihren 
Arbeitsunterlagen finden, und wird dann immer von Nutzen sein, wenn es um die Lösung 
von nicht routinemäßigen Aufgaben geht. DM 19,80 


Digitaltechnik Grundkurs (TTL © MOS - 
MOS und Software) , C.Lorenz 


Ein Einführungskurs in die Digitaltechnik für Anfänger und Fortgeschrittene. Ein Fach- 
buch für den programmierten Selbstunterricht. Der ideale Kurzlehrgang für das Selbst- 
studium. Der Kurs vermittelt Ihnen alle wichtigen Grundkenntnisse vom TTL-Gatter bis 
zum Mikroprozessor und Lösung von Schaltungsaufgaben durch Software. Viele Ver- 
suchsaufbauten und Experimente aus diesem Kurs können auf der IC-KIT Platine WH—1g 
durchgeführt werden. Grundlagen, Gatter, Zähler, programmierbare Zähler, IC-Tester, 
Srhieberegister, Speicher, Mikroprozessoren u. v. a. Über 130 Seiten. DM 19,80 


Experimentierplatine WH-ig dazu, Best.Nr. 41 DM 79, - 


Experimentierplatine WH - I g 
Abmessungen: 210 mm x 150 mm 


Experimentierplatine WH - 1 g 
fertig aufgebaut und mit Sockeln 
bestückt. 
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Mikroprozessoren, Eigenschaften und Aufbau 
Teil 1 , H. Bemstein 


Grundlagen, Eigenschaften und Aufbau von Mikroprozessoren. Organisation von Rechen- 
einheiten und Mikroprogrammen. Programmierung und Klassifizierung von Mikroprozesso- 
ren. Ablaufdiagramm, Flußdiagramm. Ein Chip-Technik und Multi Chip-Technik, Transfer- 
und Sprungfunktionen. Speichertechnik: RAMs, ROMs, FIFO, FILO. Programmierbare 
logische Arrays (PLA) 

Anwendungsbeispiele und Anwendungsbereiche, Über 120 Seiten. DM 19,80 


Elektronik Grundkurs (Kurzlehrgang Elek- 
tronik) , C.Lorenz 


Eine leichtverständliche und pädagogisch geschickt gemachte Einführung in die Technik 
der elektronischen Schaltungen. Ein Kurzlehrgang und Schnellkurs zugleich. Aber auch 

ein recht brauchbares Nachschlagewerk für den fortgeschrittenen Elektroniker. Mit wenig 
Mühe können Sie sich hier die Grundkenntnisse der elektronischen Schaltungspraxis an- 
eignen. Das Buch schafft die Voraussetzungen für ein erfolgreiches und sicheres Arbeiten 
mit interessanten Schaltkreisen modernster Technologien. Unentbehrlich für das Experi- 
mentieren mit den heutigen modernen hochıntegrierten Schaltkreisen. Über 150 Seiten. 

DM 9,80 


Mikrocomputer Technik, 
Hans Peter Blomeyer-Bartenstein 


(völlig neu überarbeitete Auflage, Herbst 1979) 

In diesem Buche finden Sie eine umfassende, einführende und weiterführende Hilfe 

zum Einstieg in die Mikrocomputertechnik mit vielen Schalt- und Programmierbeispielen. 
Als praktische Betrachtungsgrundlage dient das supermoderne Microcomputerkonzept 
Z80A von ZILOG. Das Buch geht auf alle wichtigen Zusammenhänge ein und erklärt 
diese dem Leser so ausführlich, daß kaum noch Fragen offen bleiben. Über 240 

Seiten DM 29,80 


Hobby Computer Handbuch, C. Lorenz 
Eine leicht verständliche Einführung in die Microcomputertechnik. 


Diese sehr umfangreiche Einführung in die Microcomputertechnik dürfte zu diesem 
Preise einmalig sein. Auf über 450 Seiten finden Sie: Grundlagen der Computer- und 
Microcomputer-Technik, Was ist ein Microcomputer?, Microcomputer KITs, Einplatinen- 
computer, KIM, MIKIT, Z80 KIT, 6800 KIT, NEC 8080 KIT u. v. a. Genaue Beschrei- 
bungen der wichtigsten Mikroprozessortypen. Zusammenstellung und Beschreibung der 
modernen Personal Computer. (IMSAI, CROMEMCO; CAT, OSI, POLY 88 u. v. a.) 
Kompaktcomputer wie PET und TR-8. Interfactechniken, Ein/Ausgabegeräte, ROMs, 
RAMs, Programmiergeräte für PROMs. Löschgeräte für EPROMs u. v. a. mehr. Das 
ideale allumfassende Buch für den Microcomputertechniker. Für Industrieanwendung 
ebenso geeignet, wie für den Hobby-Computer Fan. Über 450 Seiten DM 29,80 


Mikroprozessor Teil 2, H. Bernstein 


Die Fortsetzung unseres ersten so erfolgreichen Buches über Mikroprozessoren. Techno- 
logie von Mikroprozessor- und Speicherbausteinen. Festwertspeicher, PROM, REPROM, 
FIFO, Schieberegister, MPR-Register, ARL-Register, SAR-Register. Aufbau eines Mikro- 
prozessorsystems mit 8080, RAM- und ROM Schnittstellen. Befehlssatz 8080. Über 

120 Seiten. DM 19,80 
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Mikroprozessor Software Handbuch MSH, 
C. Lorenz 


Grundlagen und Einführung in die Mikroprogrammierung. Grundlagen und Einführung in 
die wichtigsten Programmiersprachen (BASIC, FORTRAN, ASSEMBLER-Sprachen) Zu- 
sammenstellung der wichtigsten Befehlslisten: 8080, Z80, M 6800, National, Fairchild, 
etc. 

Ein Software Handbuch für jeden der mit Mikroprozessoren oder Mikrocomputern zu tun 
hat. Über 200 Seiten. Preis DM 29,80 


Lexikon und Wörterbuch für Elektronik und 
Mikroprozessortechnik, LEM, C. Lorenz 


Ein Hilfs- und Arbeitsbuch für jeden der sich heute mit der modernsten Elektronik be- 
schäftigt. Viele engl. Ausdrücke werden heute in der Elektronik, Computer- und Mikro- 
prozessortechnik verwendet und oft fehlt uns eine genaueste und präzise Erklärung. 
Dieses Buch übersetzt Ihnen den englischen Fachausdruck und gibt Ihnen zusätzlich noch 
eine deutsche Erläuterung und Erklärung dieses Begriffes und was es damit auf sich hat. 
Ein Lexikon und Wörterbuch in einem einzigen Buch vereinigt. Das Buch, das Sie schon 
lange gesucht haben. Ca. 250 Seiten. PreisDM 29,80 


Mikrocomputer Datenbuch, C. Lorenz 
Zusammenstellung der wichtigsten Mikroprozessordaten. 


Eine übersichtliche und sehr informative Zusammenstellung der wichtigsten Mikro- 
prozessorbausteine auf dem Markt. 8080A, 8085, 8048, Z80, Z8, 6500, 6800, 2650, 
1802, F8, 3870, SC/MP, PACE u. v. a. Daten, Anschlußbilder, wichtige technische 
und elektrische Daten, Architektur, grundlegende Eigenschaften. Zu jedem Mikro- 
prozessor werden dann auch noch die peripheren Bausteine sowie RAM und ROM 
Elemente behandelt. Das ideale Handbuch für jeden modernen Elektroniker. a 


Aktivtraining - Mikrocomputer 


Der ideale Einführungskurs in die Mikrocomputertechnik anhand des Mikroprozessors 
8080 (8085). Viele interessante Anwendungsbeispiele. Ideal zum Selbststudium geeig- 
net. Auch die wichtigsten peripheren Einheiten werden besprochen und aufgezeichnet. 
Erscheint Ende 1979/ Anfang 1980 als gebundenes Buch und nicht wie vorher ange- 
kündigt als Sammelordner. Umfang ungefähr 400 — 500 Seiten. DM 49,— 


57 Programme in BASIC, C. Lorenz 


Ein Buch mit technisch-wissenschaftlichen Programmen und einer großen Anzahl 
von Spielprogrammen in BASIC. (Games) Ein Buch für jeden, der sich mit dem fas- 
zinierenden Hobby Her Mikrocomputertechnik befassen will. Alle Listings sind in 
BASIC und können auf den meisten Personal Computer Systemen gefahren werden. 


DM 39,-- 
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ATARI BASIC Handbuch 


Das komplette Einführungs- und Programmierhandbuch für die neuen ATARI-Computer 
ATARI 400 und ATARI 800. Anhand von vielen Beispielen wird die Leistungsfähigkeit 
des ATARI Computer-Systems gezeigt. Auch für den Anfänger ideal als Einstieg gedacht. 
Die ATARI-Computer sind mit Shepardon’s BASIC ausgerüstet. Erscheint voraussichtlich 
Erscheint Ende 1980 DM 29,80 


Mikrocomputer Programmierbeispiele für 2650, 
Dr. J. Hatzenbichler 


Eine Einführung in die Programmierung von Mikrocomputern an Hand des Prozessors 
2650 von Signetics. Viele Programmierbeispiele in Maschinensprache, die Sie auf einem 
preiswerten Mikroprozessorsystem MIKIT 2650-P2 ausführen können. Zeitschleifen- 
programme, Blinkschaltung, Lauflicht, Stufenzähler, Elektronischer Würfel, Stoppuhr, 
Reaktionszeittester, Computer Musik Programm u. v. a. Jeder Befehl wird genau erläutert 
und an Hand eines ausführlichen Flußdiagrammes erklärt. Jedes Programm liegt in Form 
eines Computer-Listings vor. Jedes Programm ist genauestens beschrieben. Sie können so 
auf einfache Weise die Zusammenhänge erkennen und erwerben damit die Gru ndkennt- 
nisse zur Erstellung Ihrer eigenen Programme. Sie erkennen, wie man mit nureiner 
Schaltung (Mikrocomputer) unendlich viele praktische Anwendungsschaltungen reali- 
sieren kann. Zu diesem Buche ist auch ein komplett aufgebautes und getestetes Mikro- 
computersystem erhältlich, auf dem Sie alle beschriebenen Programme selbst ausführen 
können. Über 120 Seiten DM 19,80 


TINY BASIC Handbuch 


Eine Programmiersprache ist um so leistungsfähiger, je einfacher eine gewünschte Funk- 
tion dargestellt werden kann. TINY BASIC ist eine abgemagerte BASIC-Version, die mit 
ca.2 K RAM auskommt. Dieses Buch zeigt Ihnen, wie Sie eine solche preiswerte BASIC- 
Version auf Ihrem KIM-1 oder einem anderen 6502-System implementieren können. 
Komplette Hard- und Softwarebeschreibungen, Programmiertricks, Programmierbeispiele 
und vieles andere mehr. DM 19,80 


Der freundliche Computer 


Ein Microcomputerbuch für jedermann. Dieses Buch sollte jeder lesen, der auch in Zu- 
kunft noch mitreden möchte. Was macht man mit einem Microcomputer? Die verschie- 
denen Computersprachen? Welche Computersprache ist die beste? Wie lerne ich eine 
Computersprache? Zusammenfassung verschiedener Computersprachen wie BASIC, 
MUMPS, PL/M, FOCAL, FORTRAN, ASSEMBLER. Vergleich dieser Computersprachen 
untereinander und Gegenüberstellung. Einkaufsführer für Microcomputer und Peripherie. 
Besprechung der einzelnen Teile des Microcomputers, ausführliches Stichwortverzeichnis 
der Fachausdrücke und v.a. m, Erscheint Mitte 1981 DM 29 80 


Microcomputer und Roboter 


Ein Buch für denjenigen, der sich externe Schaltungen für Microcomputer bauen möchte, 
die roboterartige Funktionen ausführen können. Spracherkennung, Analog-/Digital-Wand- 
ler, Digital-/Analog-Wandler, Ultraschallsensoren, Lichtschranken, Tonerzeugung u. v.a. 
Erscheint Ende 1981 DM 29 80 
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1000 Elektronik Schaltungen 


Ein ideales Handbuch für jeden, der öfter eine Schaltung zur Lösung eines bestimmten 
Problems sucht. Tausend Schaltungen aus fast allen Bereichen der Elektronik. Industrielle 
Steuerschaltungen, Microcomputer, Peripherie, Hobby-Elektronik-Schaltungen u. v. a. 
mehr. Ein Buch, daß bei keinem Elektroniker fehlen sollte.Erscheint Mitte 1981DM 49 -- 


Oszillographen Handbuch 


Ein Buch für jeden, der seinen Oszillographen optimal nutzen will. Der Anfänger, der 
noch nie einen Oszillographen benutzt hat, wird auf einfache Weise mit der Technik 
und Handhabung vertraut gemacht. Auch die Anwendung in Zusammenhang mit den 
modernen Mikrocomputersystemen wird beschrieben. Oszillograph als alphanumerisches 
Darstellungsgerät u. v. mehr. Erscheint ca. Mitte 1981 DM 19 80 


TTL-Experimentierbuch 
Eine kleine Einführung in die Digitaltechnik 


Grundlagen der Digitaltechnik kurz erklärt. Bauanleitung für einen praktischen Logik- 
Tester. Viele Experimente und Anwendungsschaltungen mit dem TTL Gatterbaustein 
7400. Das ideale Einführungsbuch in die Digitaltechnik. DM 5,— 


CMOS - Experimentierbuch 
Eine kleine Einführung in die CMOS Schaltungstechnik 


CMOS Grundlagen, Behandlungshinweise für CMOS Bausteine, Zusammenstellung der 
wichtigsten CMOS Bausteine und deren Anschlußbilder. Viele praktische CMOS Schalt- 
beispiele. Ideal für jeden Elektroniker. DM5,— 


Praktische Antennentechnik, C. Lorenz 


Ein Buch für jeden Funkamateur oder Hobbyfunker. Grundlagen, Einführung, praktische 
Beispiele, Berechnungsgrundlagen u. v. a. mehr. Erscheint Ende 1981 DM 19 80 


Handbuch für SC/MP - Das Handbuch für INS8060 und INS8070, C. Lorenz 


Eine Anleitung zum Aufbau eines eigenen Microcomputersystems. Komplett mit allen 
Unterlagen (Schaltbilder, Printvorlagen, Anleitungen). Systemdaten: 4/8K RAM, resi- 
dentes BASIC, residenter Assembler/Editor/Debugger, TV-Interface, Floppy Disk Inter- 
face, Cassetten-Interface. DM 29 80 


6502 Microcomputer Programmierung, P. Heuer, 


Ein deutsches Anleitungsbuch zum Einstieg in die Microcomputertechnik. Als System 
kann ein KIM-1 zur Ausführung der Programmierbeispiele verwendet werden. Die Maschi- 
nenprogramme lassen sich jedoch auch auf jedes 6502 System umschreiben. Daher ist 
dieses Buch auch für alle anderen 6502-System-Besitzer interessant. (AIM, SYM, CBM, 
Challenger, APPLE, ATARI, PET und PC100 sowie PC1000. DM 29 80 
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Programmierhandbuch für PET, C. Lorenz 


Ein Handbuch für jeden PET-Besitzer und solche die es werden wollen. Grundlagen, Ein- 
führung und viele Programmierbeispiele. Einführung in die Maschinensprache, Ein-/Aus- 
gabeprogrammierung, Spracheingabe für PET, Graphik mit dem PET, Computermusik, 
Programmierung des IEC-Ports, viele Programmbeschreibungen, Datenblätter, Programm- 
beschreibungen von interessanten Geschäftsprogrammen. 325 Seiten DM 29,80 


Programmieren mit TRS-80, M. Stübs 


Ausführliche Beschreibung des TRS-80 Computers von Radio Shack. Betriebssystem, 
Level II BASIC, Graphik, Mathematik und Logik, Programmiertricks, TRS-80 Floppy, 
Verbindung zur Außenwelt, RAM-Erweiterung u. v. a. mehr. Viele Programmierbeispiele 
mit ausführlicher Beschreibung runden das Buch ab und machen es zu einer wichtigen In- 
formationsquelle für jeden, der vor der Anschaffung eines TRS-80 steht. Dem TRS-80- 
Besitzer wird es stets ein wertvoller Begleiter sein. DM 29,80 


PASCAL Programmierhandbuch, C. Lorenz 


Eine leicht verständliche Einführung in die PASCAL-Programmiersprache mit vielen Bei- 
spielen. Auch auf eine TINY-PASCAL-Version wird eingegangen. Viele Programmierbei- 
spiele. DM 29 80 


BASIC Programmierhandbuch, C. Lorenz 


Einführung und Nachschlagewerk. Speziell für die BASIC-Versionen der modernen Mi- 
crocomputersysteme. Jeder Befehl wird ausführlich beschrieben und ein Beispielpro- 
gramm gezeigt. Sehr übersichtlich und praktisch. Am Schluß finden Sie ein komplettes 
BASIC-Programm, das Ihnen über einen Computer BASIC lehrt. Mit Begleittext. 


DM 19,80 


Der Microcomputer im Kleinbetrieb, L. Oswald 


Wie setzt man die modernen, preiswerten Microcomputer im Kleinbetrieb ein? Dieses 
Buch gibt Ihnen Aufschluß, wie Sie mit Microcomputersystemen in der Preisklasse zwi- 
schen DM 2.000,-- und DM 20.000,-- wichtige Aufgabe in Ihrem Klein- oder Mittelbe- 
trieb bewältigen Können. Inventuraufnahme, Inventurbewertung, Adresslisten, Rech- 
nungen schreiven u. v. mehr. Erscheint Anfang 1981 DM 39,80 


FOCAL Programmierhandbuch, L. Oswald 


FOCAL ist eine Programmiersprache die von Digital Equipment entwickelt wurde. Sie 
ähnelt etwas der BASIC-Sprache, ist jedoch wesentlich leistungsfähiger. Hauptsächlich 
mathematische Probleme lassen sich mit ihr wesentlich einfacher lösen. Wie man diese 
Sprache auf einem 6502 Computersystem (KIM-1) mit Speichererweiterung implemen- 
tiert, soll dieses Buch zeigen. Erscheint Mitte 1981 DM 19,80 


Einführung 16-Bit Microcomputer, C. Lorenz 


Eine kleine Einführung in die 16-Bit-Microcomputersysteme von Motorola, Zilog, Texas 
Instruments, Intel und Rockwell. Erscheint Mitte/Ende 1980 DM 19 80 


FORTRAN für Heimcomputer, C. Lorenz 
Einführung in die FORTRAN-Programmiersprache mit vielen Beispielen. Grundsätz- 


liches über die verschiedenen Microcomputersysteme, die bereits mit FORTRAN-Compiler 
lieferbar sind. Allgemeine Übersicht, Tips und Hinweise. Mitte/Ende 1980 DM 19 80 
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Programmieren in Maschinensprache mit dem 6502, C. Lorenz und R. Lullus 


Eine sehr ausführliche Beschreibung der 6502 Mnemonics mit kleinen Beispielen. Kom- 
plettes Assembler-Listing für CBM 8K alte ROMs und CBM 16, 32K neue ROM Ss. Text- 
Editor, Disassembler und Binder. BASIC-Listings mit genauer Beschreibung. DM 98,-- 


Programmieren in Maschinensprache (Z80),C. Lorenz 


Eine sehr ausführliche Einführung in die Z80 Maschinensprache. Die Beispiele können 
mit Hilfe des TRS-80 Level Il sowie dem T-BUG von TANDY und den T-BUG-Erwei- 
terungen (IN LOCO, T-STEP, T-LEGS) ausgeführt werden. Ein unentbehrliches Buch 
für jeden, dem die BASIC-Programmiersprache von der Geschwindigkeit her zur Lösung 
seiner Aufgaben nicht mehr ausreicht. DM 49,-- 


Anwenderprogramme für TRS-80, M. Stübs 


Ein Buch, voll mit interessanten Anwenderprogrammen für TRS-80 Level Il 16K (teil- 
weise Diskette und/oder Cassette). Hauptsächlich Programme für den Manager, Geschäfts- 
mann, Klein- und Mittelbetrieb. Auch einige interessante Spiele sind enthalten. Termin- 
kalender, Reservierungsprogramm für Omnibusunternehmen und Hotels usw. 


DM 29,80 


Microsoft BASIC-Handbuch, Microsoft 


Die deutsche Übersetzung des erfolgreichen Microsoft BASIC-Handbooks, Leicht ver- 
ständliche Einführung mit vielen interessanten Programmbeispielen. 


DM 29,80 


BASIC für Fortgeschrittene, C. Lorenz 


Ein Buch für denjenigen, der tiefer in die BASIC-Programmiersprache einsteigen möchte. 
Sehr viele nützliche Unterroutinen, Programmiertricks und Hinweise. 
DM 39,-- 


IEC Bus-Handbuch „ von Max P. Gottlob 


Ein Handbuch und Nachschlagwerk für alle Besitzer von Computern mit IEC (lEEE 
488 Bus). Dazu gehört auch der PET sowie alle CBM-Computer. Grundlagen, das 
BUS-System, Meßdatenübertragung, Adressierung eines Instrumentes, kleines IEC- 
BUS-Lexikon u, v.a. ISBN 3 921682-73-8 nur 19,80 DM 


Programmieren in Maschinesprache mit CBM 


An Hand eines praktischen Beispiels (Sortierroutine) wird der Unterschied zwischen 
BASIC und Maschinenprogrammen gezeigt. Das Maschinenprogramm kann mit dem 
leistungsfähigen MONJANA/1 Monitor in ROM erstellt werden. Am Schluß finden 
Sie weitere wichtige Informationen wie Dez/Hex- Umrechnungstabelle, Befehls- 
listen, ASCII-Tabeile sowie eine ROM-Vergleichsliste zwischen 8k PET und den 
neuen CBM-Maschinen. 60 Seiten, ISBN 3-921 682-70-3. 19,80 DM 


ELCOMP, Fachzeitschrift für Microcomputertechnik 


ISSN-Nr. 0171-0958. Die kompetente Fachzeitschrift für das moderne Gebiet der 
Microcomputertechnik. Erscheint 10 x pro Jahr, Jahrespreis DM 59,— incl, MwSt, 
Porto und Verpackung. Wer die neuesten Informationen aus diesem Gebiet für 
sich nützen möchte, muß ELCOMP lesen. Technische Tips, Software, Bauan- 
leitungen. Programmiertricks, Systembeschreibungen, Jeden Monat brandneu. 

450 DM 
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ELCOMP Doppelheft 
Von den zehn Heften pro Jahr erscheint im Juli/August und November/Dezember 
ein Doppelheft. 9,-— DM 


Einführung in die Microcomputer Programmierung mit 6800 


Eine sehr gute Einführung in die Microcomputertechnik mit Hilfe des Mikropro- 
zessors 6800. Ausführliche Erklärungen mit vielen Beispielen und Anleitungen. 
Theoretische Grundlagen. CPU-Architektur, Befehlssatz, Systemaufbau, Hilfs- 
mittel der Programmierung, Trainingsprogramme, Systemkomponenten, FIRM- 
WARE, Ein komplettes Monitorprogramm (Betriebssystem) ist als Listing ent- 
halten. Über 250 Seiten. ISBN-Nr. 3-921 682-79-9 49,— DM 


Programmieren mit dem CBM 


Ein Hand- und Programmierbuch für alle CBM-Besitzer der 3000 und 8000er Serie. 
Viele Tricks und Programmierbeispiele, Anleitungen, Erscheint Ende 1980. 


29,80 DM 


ELCOMP Leser Programmierhandbuch 


Hier fassen wir die besten Programme unserer ELCOMP-Leser zusammen. Pro- 
gramme für PET, CBM, TRS-80, AIM, SUPERBOARD, C4P, EXIDY, SHARP, 
MZSOK, Apple Il, NASCOM | u, Il und TI 99/4 werden als Listing mit kurzer 
Beschreibung allen Lesern zugänglich gemacht. DIN A 4 ca. 300 Seiten, Erscheint 
Anfang 1981. 69,— DM 


Programmierbeispiele für CBM 


Ein Buch mit vielen BASIC-Programmen für CBM und PET. Spiele, Geschäfts- 
bereich, Erziehung und Wissenschaft, Utilities, trickreiche Programme, Hilfen 
für Maschinensprachenprogrammierung. Viele Programme für wenig Geld. Er- 


scheint Ende 1980 19,80 DM 
Cobol für Anfänger 

Eine Einführung in die Cobol-Programmierung für den Microcomputer-Besitzer, 
Erscheint Anfang 1981. 19,80 DM 
CP/M-Handbuch 


Grundlagen, Einführung, Hilfs- und Handbuch für jeden der mit dem ’’Software- 
Bus’’ arbeiten möchte, Ideal auch für Anfänger. Praktisches Handbuch für den 
Profi. Anfang 1980 29,80 DM 


Welches Betriebssystem brauche ich? 


Ein Leitfaden und Handbuch für den Anwender der gehobenen Microcomputer- 
klasse, Anfang 1981. ;s 19,80 DM 


Bücher in englischer Sprache aus dem Hofacker Verlag 
Books in English, publushed by Ing. W. Hofacker GmbH 
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Care and Feeding of the Commodore Personal Electronic Transactor edited by Silver Spur 


Ein Buch für den PET-Besitzer und Hardware-Fan. Viele wichtige Kniffe und Tricks, die 
Sie benötigen, wenn Sie selbst ihren PET-Computer erweitern wollen. DM 19,80 


8K Microsoft BASIC Reference Manual 


Eine Einführung in die 8K Microsoft BASIC-Version mit vielen Beispielen. Dieses Buch 
braucht jeder, der einen Microcomputer mit Microsoft-BASIC besitzt. DM 19,80 


Expansion Handbook for 6502 and 6800, S. Roberts 


Viele interessante periphere Schaltungen für 6502 und 6800 Microcomputersysteme. Ein 
Buch das jeder benötigt, der sein System selbst erweitern möchte und noch mehr Vorteile 
daraus ziehen will. RAM-Platine, ROM-Platine, CPU-Platine, Ein-/Ausgabeplatine u. v. a. 

DM 19,80 


Microcomputer Application Notes, Intel 


Eine Zusammenfassung der interessantesten Applikationsberichte von Intel. Programmier- 
barer Interfacebaustein 8255, Anwendung des USART 8251, entwickeln mit statischen 
RAMs, Benutzung der seriellen Ein-/Ausgabeleitungen des 8085, Anwendung von 5V 
EPROMs, Anwendung des 2708 EPROMsu.v. DM 29,80 


Complex Sound Generation using the SN76477 


Dieses Buch zeigt Ihnen, wie man mit dem SN76477 die interessantesten und schönsten 
Töne erzeugen kann. Vogelgezwitscher, Dampfeisenbahn, Autorennen, Raketenabschuß, 
Granateneinschlag u. v. a. mehr. Viele Schaltungen mit genauen Beschreibungen. Kurz- 


daten. DM 19,80 
The First Book of 80-US(TRS-80) 


In diesem Buch haben wir noch einmal einige wichtige und interessante Programme 
sowie Artikel aus der amerikanischen Spezialfachzeitschrift für TRS-80 (80-US, The 
TRS-80 Users Journal) zusammengestellt und als Buch herausgegeben. Dieses Buch 
sollte nur kaufen, werdie Einzelhefte dieser Zeitschrift von Vol. | Nr. 1 bis Vol. II Nr. 5 
noch nicht besitzt. Das Buch enthält sehr wertvolle, nützliche Informationen und phan- 
tastische Software: Kleinbuchstaben für TRS-80, Biorythmus für TRS-80, Bowlingspiel, 
Adressliste, Bildzeichnungsroutine, komplettes Geschäftsprogramm für Friseurläden, 
Telefon und Namensverzeichnis. Texteditor, Persönlichkeitsprofil u. v.a. DM 19,80 


Small Business Programs, S. Roberts 


Ein Buch für denjenigen, der die modernen Microcomputer (speziell TRS-80, APPLE, 
PET, North Star, Challenger) zur Rationalisierung in seinem Klein- oder Mittelbetrieb 
einsetzen möchte. Viele nützliche Tips, Hinweise und Programmierbeispiele. Dieses Buch 
sollte jeder Geschäftsmann und Microcomputerfreund besitzen. DM 29,80 


The first Book of Ohio Scientific Vol. I 


Das erste weltweit produzierte Buch für die erfolgreiche Ohio Scientific Challenger 
Computerserie. Grundlagen, viele Programmiertricks, Hardwaretips, Umbauan- 
leitungen, Programmierbeispiele u. v.a. 186 Seiten. Glanzumschlag 19,80 DM 
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The second Book of Ohio Scientific 


Eingehende Beschreibungen über praktische und geschäftsorientierte Software. 
Speicher Test Programm, Tricks und Tips für Disketten-Anwender. Mini-Floppy- 
Expansion u. v.a, 159 Seiten, 19,80 DM 


The third Book of Ohio Scientific 


Fortsetzung der oben beschriebenen Reihe, In diesem Buch findet der Hardware- 
Spezialist das was er schon länger gesucht hat. Wichtige Informationen für die 
Systemerweiterung, Schaltpläne u, v.a. 180 Seiten. Herbst 1980 19,80 DM 


The fourth Book of Ohio Scientific 


Ein Buch voll mit Programme für das Superboard, CAP, CA4APMF und C28P, Die 
Softwarequelle für jeden Challenger Fan, Alle Programme sind getestet und auch 
auf Cassette verfügbar. 170 Seiten Listings u, Beschreibungen. Herbst 19 80. 

Buch 29,80 DM 
Cassette (extra) 29,80 DM 


The fifth Book of Ohio Scientific 
Frühjahr 1981. 19,80 DM 


ATARI GAMES IN BASIC 


Ein Büchlein mit vielen Programmen für den ATARI-Computer (400 + 800). 64 
Seiten. Ende 1980 19,80 DM 


The peripheral Handbook 


Ein Handbuch über Drucker, Floppys, Hard-Disks, und alles was Sie um den Micro- 
Computer herum benötigen. Tricks und Kniffe. Technische Beschreibung. Anfang 
1981. 29,80 DM 


ELCOMP —-INHALTSVERZEICHNISSE 


Inhaltsverzeichnis der zurückliegenden 
ELCOMP - Hefte 


Nr. 1 


Symbole 

Microcomputer Grundkurs 

North-Star Horizon Computer 

Software für Z 80 Systeme 

Selbstbaucomputer mit Z 80 Bauan- 
leitung für ein eigenes Microcomputer- 
System, Teil 1 

8085 Microcomputer-KIT 

Microcomputer-Anwendung im Kleinbe- 
trieb 

S-100 Bus Adapter für PET 2001 

Exidy - Ein neues Microcomputer- 
System mit Z-80 

Hauskauf mit BASIC 

Heimcomputer-Vergleichsliste 

BASIC-Programm FACTORS 

Der S-100 Bus (Beschreibung) 

Viele Programme für den PET 

Software für 8080/Z-80/6800 Systeme 

AIM-Computer von Rockwell 

Erweitern Sie Ihren KIM-1 

Der VIM-1 ist da 


September 1978 350 DM 


Nr.2 Oktober 1978 


Microcomputer Grundkurs 

Wie lernt man BASIC 

TINY BASIC, klein aber oho 

Selbstbaucomputer Z 80, S-100 RAM- 
Karte 

Supermonitor für den PET 

Die Silicon Valley Story 

Programmierung von Bewegungsabläufen 

TRS-80 Microcomputer des Monats 

Ein IK-Monitor für Z-80 (Betriebssystem) 

Musik für den PET 

Microcomputer Lexikon 

Ein Monitor für 6502 

Breackpoint-Routine 

Joystick Programmierung 

Microchess 

Ein leistungsfähiger Monitor für den PET 

BASIC Plus 

Messeberichte 

Personal Computing 


350 DM 


Nr. 3/4 Nov./Dez. 1978 

Graphik mit dem PET 

Wie lernt man BASIC, Teil Il 

Preiswertes Datenerfassungssystem mit 
Scampi 

IPS - Die Programmiersprache der Nach- 
richtensatelliten f. Funkamateure 

Apple Il - Microcomputer d. Monats 

PSI - Ein komfortables Programmsystem 

Ein linearer Joystick für PET 

NASCOM 1 

KIM-1 wird noch leistungsfähiger 


8,00 DM 


Fädeltechnik für Elektroniker 

Neues SC/MP Microcomputersystem 

Microcomputer-Lexikon 

Silicon-Valley-Story, Teil Il 

Biorythmus 

Z-80 Selbstbaucomputer Ein-/Ausgabe- 
platine 

Drucker für SC/MP 

S-100 Bus Mutterplatine 

Messebericht WESCON 

Industrie und Personal Computer EXPO 

Nr. 1 Januar 1979 350 DM 

Bubble-Speicher von Rockwell 

Programmiertricks für PET 

Cumputerspiele 

Programmierexperimente für PET 

Wie lernt man BASIC, Teil Ill 

ASCII - Selbstbautastatur 

PASCAL 

Biorythmus für PET 

Microstar - Microcomputer d. Monats 

Z-80 Selbstbaucomputer - Bauanleitung 
für ein eigenes Microcomputersystem, 
Teil 4- EPROM-Karte 

APL für Z-80 

TINY-BASIC f. NASCOM-1 

Floppy Disk für Apple II 

PROTEUS III 

4k CMOS RAM 


Nr. 2 Februar 1979 

Computer-Musik 

Wie lernt man BASIC, Teil IV 

Kraftstoffverbrauch und Computer 

Löschen des Speichers beim 8080/8085 

Dual-Joystick für den PET 

Was der Elektronik-Fachhändler 
Microcomputer wissen muß 

Spielen Sie Lotto ? 

Einfache Programmorganisation für PET 

Ein-/Ausgabeprogrammierung mit PET 

16-Bit-Microprocessoren 

Schaltregler für Microcomputer 

Einfaches Statistikprogramm für PET 


Bereits vergriffen ! 


450 DM 


über 


Nr. 3 März 1979 

Challenger IP und Superboard II 

ATARI-Computer 

Suchlauf 

SC/MP-Programm BINBCD 

Sprungentfernung bei relativer 
sierung 

Laufzeitreduzierung b. BASIC-Interpreter 

Heimcomputer und Bildungswesen 
Lernen für die Anwendung von Micro- 
prozessoren 

Umwandlung von BCD-Code in 7-Seg- 
ment-Code 

Microcomputer des Monats: MSI 6800 
von Midwest Scientific Instruments 


450 DM 


Adres- 


Wie lernt man BASIC, Teil V 
S-100 Adapter für TRS-80 
Computer-Musik 


Nr. 4 April 1979 450 DM 
KIM-Software - Es leber der KIM-1 
Disassembler und Editor für 
CAI Computer Assisted Instruction 
Optimieren Sie Ihre Programmiertech- 
nik 
Jetzt kommen die Roboter 
Zeilenveränderungsprogramm f. PET 
Was ist eine Computersprache 
Messebericht Consumer Show in Las Vegas 
Dreidimensionale Graphik mit dem PET 
Wie lernt man BASIC, Teil VI 


KIM-1 


Nr.5 Mai 1979 450 DM 

Adressenverwaltungssystem KARTEI 

JANA - ein neuer Monitor für den PET 

Experimente für Anfänger mit KIM-1 

TANDY TRS-80 Level Il 

4k RAM-Erweiterung für KIM-1, SYM-1 
oder AIM 

Z-80 System auf Europakarten 

Microcomputer für den Geschäftsbereich 

Zufallsgraphik . 

Wie lernt man BASIC, Teil VII 


Nr.6 Juni 1979 

ELCOMP-Leserumfrage 

Z-80-KIT Tips 

Wie lernt man BASIC, Teil VIll 

Minidiskette für TRS-80 

Preiswerter Drucker für den Microcom- 
puteranwender 

Computer-System 79 

Schrittmotoransteuerung mit SYM-1 

Wie baue und programmiere ich einen 
Joystick? 

Assembler für SC/MP 

Starten mit SYM-1 

Displayanzeige mit dem SYM-1 


450 


Nr.7/8 Juli/August 1979 

Die neue TRS-80 Überraschung 

6502 hat Zukunft 

Grenzüberwachung 

NASCOM-1 mit TINY BASIC 

BASIC-Vergleichstabelle 

Der SORCERER Computer 

Interview mit dem geistigen Vater der 
TRS-80 Familie 

Der neue Heathkit-Computer 

Microchatter 

Wie lernt man BASIC, Teil IX 

Die Hardwarestruktur des ELZET 80 

Was ist ein Wortverarbeitungssystem? 

Computersystem CONDOR 

Computerspiele in BASIC 

PILOT 


9,00 DM 


Ein einfaches PROM-Programmiergerät 
Ein-/Ausgabeprogrammierung mit PET 
Erweiterung für NASCOM-1 

Lernen für die Anwendung von Micro- 
processoren 


Nr.9 September 450 DM 

Tips für den BASIC-Programmierer 

Wie lernt man BASIC, Teil X 

EUROCOM-1 

Michrochatter 

Die neuen ROMs im CBM 

Neue Publikationen 

Speichererweiterung für den PET 

Musikprogramm für den NASCOM-1 

Computersystem 79 

Umschalten des Bildschirms auf Breit- 
schrift beim TRS-80 Level I 

Vergleich dreier Zahlen 

ELCOM-Leserbriefe 

Diskettenpower APPLE II 

Neuer Einplatinencomputer von Motorola 

Einstellung der Tonspur beim PET 


Nr. 10 Oktober 1979 450 DM 

Ein-/Ausgabeprogrammierung mit dem 
TRS-80 

Texas Instruments stellt seinen Heim- 
computer vor 

Microchatter 

Wie lernt man BASIC, Teil XI 

Der MZ-80 von Sharp 

Microcomputer als Hobby 

Ein komplettes Textverarbeitungssystem 
mit CBM-Computer u. Heathkit-Drucker 

Wer ist OHIO SCIENTIFIC ? 

KURDIS - Ein Programm zur Kurven- 
diskussion 

BASIC im Unterricht 

Monolithischer 8 Bit Analog/Digital- 
Wandler 

Band-Test 

Nr. 11/12  Nov./Dez. 1979 9,00 DM 

Jetzt kommt PASCAL 

Aus der PET-Modulkiste 

HISTORGRAMM 

32k RAM Zusatzspeicher f. PET 2001 

Exidy Sorcerer 

Kleinschrift und Verbesserung des Video- 
RAMs beim TRS-80 

Filmkamerasteuerung mit PET 

Anschluß eines Floppy-Disk-Controllers 
an 6500 Microprozessoren 

Anschluß eines Baudot-Fernschreibers an 
einen Microcomputer 

Ein Besuch bei ATARI 

Kalender 

Ein wenig Trigonometrie 

Berechnen der Kreiszahl 

Der NASCOM-2 ist da 

PET als IC-Tester 

Das NIM-Spiel und was es damit auf sich 
hat 

Linking Loader für PET 2001 (8k) 

MEMDMP-Hex Dump- Programm für 
6502 Systeme 


KIM-1 schreibt auf Skop 
IRRGARTEN 

KIM-Orgel 

Lichtgriffel 

Meldeton für PET 

Preiswerter Drucker f. NASCOM-1 
Wie lernt man BASIC, Teil XII 


Bereits vergriffen ! 


Nr. 1 Januar 1980 450 DM 

Microcomputer-Software und Vernunft 

TRS-80 als "elektronisches Kurvenlineal” 

Schrottknüppel 

Programmbeschr.: FLAG OPERATION 

Aus der PET-Modul-Kiste 

Alternatives TINY-BASIC für den TRS-80 
unter Level 1 

Programmtricks APPLE II 

NEU!!! Einführungskurs: Programmieren 
in Maschinensprache auf Z-80 

Programmiertrick für TRS-80 

Eine professionelle Analogschnittstelle 

GRAPHSYS 

Wie lernt man BASIC, Teil XI1l 

Programmierhilfen f. NASCOM-1 

SUMA 85 (Selbstbausystem) 

Automatische Zeilennummerierung für 
PET 

ULTRA-MON-CBM Bedienungsanleitung 

Entwicklungsboard f. AmZ8000 

ELTRO-HOBBY 79, der große Renner 


Nr. 2 Februar 1980 450 DM 

"Echte‘’ Großschrift beim TRS-80 

BASIC-Programme - kürzer und schneller 

Datenlogger BASIC - Programmierbar 

EPROM-Programmiergerät für PET 

HIGH-Resolution-Graphic auf dem 
APPLE II 

Wie lernt man BASIC, Teil XIV 

Der TI-Programmer 

SUMA 85 

Programmieren in Maschinsprache mit 
Z-80 

PET-Petits 


Nr. 3 März 1980 450 DM 

Der Personalcomputer von HP ist da 

Lernen mit dem AIM, Teil 1 

Die neuen CBM-Modelle 

SUMA 85, Teil 3 

Programmieren in Maschinensprache mit 
Z-80, Teil 3 

Maschinencodemonitor in TINY-BASIC 

PET-Petits 

Was ist Datenschutz? 

Monitorprogramm für SC/MP 

Wie lernt man BASIC, Teil XV 

Quadratische Gleichungen 

Wer ist Jim Butterfield? 


Messebericht: Comsumer Electronics 
Show 

Der PC-100 

Nr.4 April 1980 450 DM 


Grundlagen der Finanzbuchhaltung für 
den Microcomputeranwender 


SUMA 85, Teil 4 

Messebericht: Hobbytronic Dortmund 

Berechnung ganzrationaler Funktionen 

Aus der PET-Modulkiste 

SDS-100 MicroMini 

Erstes Home-Computer-System von TI 

Programmieren in Maschinensprache mit 
Z-80, Teil 4 

PRINT USING für X80 und PET 

Microchatter 

Wie lernt man BASIC, Teil XVI 

PET Petits 

Grafik mit dem Superboard 

Untersuchen von Texten auf die Häufig- 
keit des Auftretens einzelner Buch- 
staben 

Zum lernen ideal.... 

Hochinteressante Interviews 


Nr.5 Mai 1980 

Aus der PET-Modul-Kiste 

Z80-Disassembler für den NASCOM 

Implementierung einer REAL-TIME- 
CLOCK 

SUMA 85, Teil 5 

Programmieren in Maschinensprache mit 
Z-80, Teil 5 

Lernen mit AIM, Teil Il 

AIM 65 hilft im Büro 

Protokollieren von TRS-80 Bildschirm- 
ausgaben 

Wie lernt man BASIC, Teil XVII 

West Coast Computer Faire 

Der HY Q-1000 

Der BASE> Drucker 


450 DM 


Nr. 6 Juni 1980 450 DM 

Die einfache Verkettungstechnik 

Programmieren in Maschinensprache mit 
Z-80, Teil 6 

Lernen mit dem AIM, Teil 3 

Microcomputer Fools Corner 

Challenger C4PMF Microcomputer 

SUMA 85, Teil 6 

Wie lernt man BASIC, Teil XVili 

TINY-FORTH für TRS-80 Level Il, 16k 

CBM-Disk BASIC Version 4.0 

Heathkit - Matrixdrucker / Erfahrungs- 
bericht 

Monostabile Kippstufen 

5. West Coast Computer Faire 

Hex-DUMP in BASIC für Superboard 

Michrochatter 


ELCOMP ist in der Micro- 
computer-Berichterstattung 
immer vorne. 

Keiner, der mitreden will, 
kann es sich noch leisten, 
ELCOMP nicht zu _ lesen! 
Bestellen Sie deshalb heu- 
te alle noch verfügbaren Hefte 
und sichern Sie sich ELCOMP 
im Abonnement für die Zu- 
kunft. 





Hiermit gebe ich folgende Bestellung unter Anerkennung 
Ihrer Lieferungs- und Zahlungsbedingungen auf. 


Artikelbezeichnung 





BESTELLKARTE für ein ELCOMP-Abonnement 


Auslands-Abonnement (Europa) + DM 10.-- Versandkosten 
Bitte senden Sie mir ab sofort alle künftigen Ausgaben der ELCOMP., Preis DM 59, -- 
pro Jahr incl. Versand und Verpackung. Lieferung ab Ausgabe.......uuusessnseneennenennens 


Bitte senden Sie mir alle bereits erschienen Ausgaben zum Sonderpreis 
DM 37 ,-- (Sept. 78 — Okt. 79, außer Nr.3/4 1978, Nr. 2, 4,11/12 1979) 


Jahrgang 1980 DM 49,— 


Ich bezahle im voraus für..........Jahrle) DM.................. ‚ Pschk. München 15994807, 
Dresdner Bank München Kto. 5390 370, BLZ 700 800 00. 


Ich bitte um Lieferung auf Rechnung. 


„ Ich bitte um Abbuchung von meinem Konto (Giro od. Postscheckkonto) 
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Absender 
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Beruf MIKROCOMPUTER BOOK STORE 


Straße/Nr. Tegernseerstr. 18 


D-8150 Holzkirchen /Obb. 
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Straße 

( ) 

PLZ Ort 

En Ing. W. Hofacker GmbH 

Telefon Tegernseer Straße 18 
D-8150 Holzkirchen 


Das Abonnement wird automatisch verlängert 
(Kündigung 8 Wochen z. Abonnement-Ablauf) 





Mikrocomputer 
Fachbücher 





deutsch 


Aktiv Training Microcomputer 8080 
8085 

Dieses Werk mit über 360 Seiten be- 
schäftigt sich ausschließlich mit den 
Microcomputerbausteinen und Peri- 
pherieelementen der 8080A und 
8085 Microprozessoren,. Grundlagen, 
Einführung 8080 Microcomputer, 
Programmieren in Assembler, PL/M 
Compiler, Speicherbausteine u. v.a. 
mehr. Ideal für jeden, der ein System 
mit 8080, 8085 CPU besitzt. Auch 
der Z80 Systembesitzer kann von 
diesem Buch .viel profitieren. Am 
Schluß des Buches finden Sie noch 
ca. 150 Programmlistings in Maschi- 
nensprache (Nützliche Utilities und 
Spielprogramme). 

Best.-Nr. 30 DM 49,80 





Mikroprozessoren, Eigenschaften 
und Aufbau, Teil 1, H. Bernstein 
Grundlagen, Eigenschaften und Auf- 
bau von Mikroprozessoren, Organi- 
sation von Recheneinheiten und Mi- 
kroprogrammen. Programmierung 
und Klassifizierung von Mikropro- 
zessoren. Ablaufdiagramm, Flußdia- 
gramm. Ein-Chip-Technik und Multi- 
Chip-Technik,, Transfer- und Sprung- 
funktionen. Speichertechnik: RAMs, 
ROMs, FIFO, FILO. Programmier- 
bare logische Arrays (PLA). An- 


M6800 Mikroprozessor Be 
Programmierhandbuch wendungsbeispiele und Anwendungs- 


bereiche. Über 120 Seiten. 
Best.-Nr. 22 DM 19,80 


M6800 Mikroprozessor Programmier- 
handbuch 

ya Ein deutschsprachiges Handbuch für 
IE ug den 6800 Microcomputer. Grundla- 
i a > gen, Einführung und genaue Be- 


fehlserklärungen. 
Best.-Nr. 8063 DM 19,80 





Hobby Computer Handbuch, C. Lo- 
renz 

Eine leicht verständliche Einführung 
in die Mikrocomputertechnik. Diese 
sehr umfangreiche Einführung in die 
Microcomputertechnik dürfte zu die- 
sem Preis einmalig sein. Auf über 
450 Seiten finden Sie— Grundlagen 
der Computer- und Microcomputer- 
Technik, was ist ein Microcompu- 
ter? Microcomputer KITs, Einplati- 
nencomputer, CAT, OSI, POLY 88 
u. v. a. Das ideale allumfassende 
Buch für den Microcomputertech- 
niker. Für Industrieanwendung eben- 
so geeignet wie für den Hobby- 
Computer-Fan. Über 450 Seiten. 
Best.-Nr. 25 DM 29,80 





Microcomputertechnik 

Z80, Z8, Z8000 v. H. P. Blomeyer- 
Bartenstein 

völlig neu überarbeitete Auflage. In 
diesem Buch finden Sie eine umfas- 
sende, einführende und weiterführen- 
de Hilfe zum Einstieg in die Micro- 
computertechnik mit vielen Schalt- 
und Programmierbeispielen. Als 
praktische Betrachtungsgrundlage 
dient das supermoderne Microcom- 
puterkonzept Z80A von Zilog. Das 
Buch geht auf alle wichtigen Zu- 
sammenhänge ein und erklärt diese 
dem Leser so ausführlich, daß kaum 
noch Fragen offen bleiben. Über 240 
Seiten. Best.-Nr. 24 DM 29,80 


C., LORENZ 


Eine leicht verständliche 
adult 
UNCEISRUJUNT LAN LLL, 





Mikrocomputer Programmierbei- 
spiele für 2650, Dr. J. Hatzenbichler 
Eine Einführung in die Programmie- 
rung von Mikrocomputern anhand 
des Prozessors 2650 von Signetics. 
Viele Programmierbeispiele in Ma- 
schinensprache, die Sie auf einem 
preiswerten Mikroprozessorsystem 
MIKIT 2650-P2 ausführen können, 
Zeitschleifenprogramme, Blinkschal- 
tung, Lauflicht, Stufenzähler, Elek- 
tronischer Würfel, Stopuhr, Reak- 
tionszeittester, Computer Musik Pro- 
gramm u.a. Zu diesem Buch ist auch 
ein komplett aufgebautes und ge- 
testetes Mikrocomputersystem er- 
hältlich, auf dem Sie alle beschrie- 
benen Programme selbst ausführen 
können. Über 120 Seiten. 


Best.-Nr. 33 DM 19,80 


Dr JHatzenbichler 
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Handbuch für SC/MP 

Ein echtes Handbuch für SC/MP 
(INS8060) Microcomputerbesitzer 
und solche, die es werden sollen. 
Komplette Einführung mit vielen 
Schaltbeispielen, Schaltbildern und 
Programmlistings in Maschinenspra- 
che und TINY BASIC. Komplettes 
ELBUG-Listing, CPU-Karte, RAM- 
Karte, ROM-Karte, ROM-Program- 
mierer, Cassetten-Interface, Fernseh- 
interface, Netzteil, Hex Ein-/Ausga- 
be, SC/MP Einkartenmicrocomputer 
u.v.a,. mehr. 


Best.-Nr. 108 DM 29,80 
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Programmieren in Maschinensprache 
mit 6502 

Ein deutsches Buch für jeden, der 
mit dem 6502 Mikroprozessor arbei- 
tet. Grundlagen Maschinensprache, 
Beschreibung des Extended Monitors 
für Superboard von Challenger. Aus- 
führliche Beschreibung jedes einzel- 
nen Maschinenbefehls mit Beispiel. 
Übersichtliche Beschriftung. Sie fin- 
den jeden Befehl schnellstens und 
können nachlesen, was im Computer 
selbst geschieht. Am Schluß finden 
Sie Listings und Beschreibung für 
einen kompletten 2-Pass-Assembler, 
Editor, Binder und Disassembler. 
Für PET 8K, alte ROMS und für die 
neue CBM Serie. 


Best.-Nr. 118 DM 98,-- 


C. 1ORENZ 


M CROCOMPUT er 
andbuch 





6502 Microcomputer-Programmie- 
rung, Peter Heuer 

Eine deutschsprachige Einführung in 
die Maschinensprachenprogrammie- 
rung anhand des 6502 Microcom- 
puters. Ein echtes Anleitungsbuch 
zum Einstieg in die Microcomputer- 
technik mit Hilfe des KIM-1. Viele 
Programmierbeispiele, die von einem 
Pädagogen speziell für Anfänger ent- 
wickelt wurden. Auch PET, AIM, 
SYM und ATARI-Besitzer brauchen 
dieses Buch, 


Best.-Nr. 109 DM 29,80 


Mikroprozessor, Teil 2 

von H. Bernstein. Die Fortsetzung 
unseres ersten, so erfolgreichen Bu- 
ches über Mikroprozessoren. Tech- 


lu TASTE nologie von Mikroprozessor- und 
Dr Speicherbausteinen. Festwertspei- 

| cher, PROM, REPROM, FIFO, 
Schieberegister, MPR-Register, ARL- 
Register, SAR-Register. Aufbau eines 
Mikroprozessorsystems mit 8080, 
RAM- und ROM-Sschnittstellen. Be- 


fehlssatz 8080. Über 120 Seiten, 
Best.-Nr. 26 DM 19,80 


H.Bernstein 





Programmierhandbuch für PET b 
C. Lorenz 

Ein vom Hofacker-Verlag für den 
PET produziertes Buch. Es beginnt 
da, wo Ihr mitgeliefertes Handbuch 
aufhört. Einführung Maschinenpro- 
grammierung, Assembler, Ein-/Aus- 
gabeprogrammierung, Programmier- 
tricks, Analog/Digital-Wandler, Gra- 
phik, Spracherkennung u. v. a. 
mehr. Viele Listings, die Sie selbst 
eintippen können. 324 Seiten. 
Best.-Nr. 110 DM'29,80 





Microcomputer Lexikon und Wörter- 
buch von A-Z,C. Lorenz 

Ä Englisch/Deutsch — Der Fachaus- 
druck wird übersetzt, ausführlich er- 
klärt und erläutert. 
Deutsch/Englisch — Übersetzung des 
Fachausdrucks. Ein Hilfs- und Ar- 
beitsbuch für jeden, der sich heute 
mit der modernsten Elektronik be- 
schäftigt. Viele engl. Ausdrücke wer- 
den heute in der Elektronik, Com- 
puter- und Mikroprozessertechnik 
verwendet und oft fehlt uns eine ge- 
naueste und präzise Erläuterung. Ein 
Lexikon und Wörterbuch in einem 
einzigen Buch vereint. 
Best.-Nr. 28 DM 29,80 
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wichtigsten Befehlslisten: 8080, Z80, 


M6800, National, Fairchild etc. Ein 
computern zu tun hat. Über 200 S. 


mit Mikroprozessoren oder Mikro- 


(BASIC, FORTRAN, ASSEMBLER- 
Software Handbuch für jeden, der 


Grundlagen und Einführung in die 
Sprachen). 


Grundlagen und Einführung in die 
Mikrocomputerprogrammierung, 
wichtigsten 


Mikroprozessor Software Handbuch 


C. Lorenz 
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Mikrocomputer 
Fachbücher 


Intel Application Notes (8080 ,8085, 
8255, 8251) 

Dieses Buch braucht jeder, der mit 
8080, 8085 oder Z-80 Mikropro- » 





englisch 


zessoren arbeitet. » ya 

Wir haben die interesantesten Appli- Application Notes 
kationsberichte in diesem Buch zu- 8080 

sammengefaßt. 


Aus dem Inhalt: Designing with 8085 
Intel’s Static RAMs 2102, Memory © 
Design with the Intel 2107B. LRARRT “ 
8255 Programmable Peripheral In- 
terface Applications, Using the 8202 8259 Na 
Dynamic RAM Controller u. v. a. 8251 rm 
Best.-Nr. 153 DM 29,80 





Microsoft 8K BASIC Reference 
Manual 

Eine sehr gute BASIC-Einführung. 
Auch als Handbuch zum Nachschla- 
gen bestens geeignet. Ideal für je- 
den PET, CBM, TRS#80, KIM- 
BASIC, SYM-BASIC, AIM- und 
APPLE-Besitzer. 73 Seiten DIN A4 
mit vielen Beispielen. Eine Produk- 
tion des Hofacker-Verlages in engli- 
scher Sprache. 

Best.-Nr. 151 DM 19,80 





Care and Feeding of the Commodore ” 
PET 

Das ideale Buch für den Hardware- 
Bastler. Viele Tricks, Schaltbilder, 
Hinweise und Erläuterungen für den, 
der gerne selbst Erweiterungen bauen 
möchte. Memory Map für 8K PET 
und CBM, Bauanleitung für eine 
serielle Schnittstelle u. v.a. mehr. 
Best.-Nr. 150 DM 19,80 





Expansion Handbook for 6502 and 
6800 

Das ideale Handbuch für alle KIM, 
SYM, AIM, PET und Challenger 
Computer-Freunde. Das Buch be- 
schäftigt sich ausschließlich mit dem 
S44-Bus. Dies ist exakt der Bus 
von SYM, AIM und KIM. Sehr viele 
Schaltbilder: CPU-Platine, Hex-Ta- 
statur Eingabe, Kansas City Inter- 
face, RAM u. ROM-Karte, Analog- 
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Microprocessor/Microprogramming 
Handbook, Brice Ward 

Ein praktisches Handbuch für jeden, 
der sich mit Mikroprozessoren be- 
by brice ward schäftigen möchte. Auf über 290 
Seiten finden Sie Grundlagen, alles 
über Programmierung und Anwen- 
dungsbeispiele der interessantesten 
integrierten Schaltungen. Inhalt: Ein- 
führung in die Mikroprozessortech- 
nik. Der Mikroprozessor von innen. 
MCS4, MCS40, MCS80, Speichersy- 
steme, Mikroprogrammierung in Ma- 
schinen- und Assemblersprache. 
Best.-Nr. 785 DM 35.-- 
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Microprocessor Programming for the |}, Microprocessor 
Computer Hobbyist Programming 
Dieses buch ist speziell für den tor Computer Hobbyists 


Computer-Hobbyisten geschrieben, 
der sich bereits mit weiterführen- 
den Programmiertechniken und Da- 
tenstrukturen beschäftigen möchte. 
Inhalt: Höhere Programmiersprachen 
(PL/M,PL/1), arithmetische Funktio- 
nen, Suchprogramme werden im Zu- 
sammenhang mit dem Schachspiel- 
problem behandelt. Über 380 Seiten 
in englischer Sprache 

Best.-Nr. 952 DM 39,-- 





Artificial Intelligence, Neil Graham 

Hier ist endlich ein Buch speziell 
über künstliche Intelligenz. Der Au- 
tor benutzt Computerspiele und Ro- 
botertechnik für die illustrative Be- 
handlung dieses brandheißen The- 
mas. Was ist der Unterschied zwi- 
schen einer Lösung einer komple- 
xen Programmieraufgabe und der 
Programmerstellung für intelligente 


Computerentscheidungen. 
Best.-Nr. 1076 
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and an umdarstondshle kangasge and grammar (Frekan) 


Beginner’s Guide to Computer Pro- 
gramming, Brice Ward 

Eine ideale Einführung in die Pro- 
grammierung von Computern (Mi- 
croprozessoren). Das Buch beginnt 
mit der Entwicklung einer einfachen 
Programmiersprache für den eigenen 
Bereich und zum Selbststudium, so- 
dann wird auf andere Sprachen über- 
gegangen. Inhalt: Grundlegende Pro- 
grammkonzepte, I/O-Schaltungen, 
Flußdiagramme, Programmtest, 
Schleifen, Indexregister, versch. Pro- 
grammiersprachen, Compiler, Cobol 
u. v. a., 480 Seiten, 364 Bilder , in 
englischer Sprache. 


Best.-Nr. 1015 DM 29,80 
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How to build your own working 
ROBOT PET 

An incredible book that shows you 
how to construct your own robot 
and program it. Includes full de- 
tails on building a navigation sy- 
stem (Soniscan), a hearing method 
(Excom), a way of talking (Audigen) 
and an understandable language and 
grammer (Fredian). 

Eine wertvolle Hilfe für alle, die 
sich einen Roboter bauen wollen. 
(8085) CPU). Viele wertvolle Schal- 
tungen, die Sie im Zusammenhang 
mit TRS-80 oder 8085-Computern 
verwenden können. 238 Seiten. 
Best.-Nr. 1141 DM 29,80 
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PROGRAMMING MICROPROCESSORS, M.W.McMurran 

Dieses Buch reicht von der grundlegenden Microprozessororganisation über 
Zahlensystem, Flußdiagramme, Adressierung, Assemblierung über Subrou- 
tinenbeschreibungen, Programmierhilfen, Datenaustausch, Compilern bis hin 
zu speziellen Programmiertechniken. Schwergewicht Software. 270 Seiten, 


in englischer Sprache 
Best.-Nr. 985 
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DM 35.-- 


25 Games in BASIC (Listings). Die 

d Programme laufen mit kleinen Ände- 
rungen auf den meisten Microcom- 
putern. Inhalt: Number, Letter, 
Stars, Trap, Bagels, Mugwump, 
Hurkle, Snark, Reverse, Button 
Chomp, Taxman u.v.a. 


Best.-Nr. 8057 DM 9,80 
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Digital 
Interfacing With 
fin Analog World 


How tu design circeits 10 Interiace mieropracessun 
cas wilh Ihe analog world 


computers, and other digital dev 


Digital Interfacing with an Analog 
World, Joseph J. Carr 

Wie entwirft und baut man Inter- 
faceschaltungen für Microcomputer? 
Der Schwerpunkt liegt bei der Vei 
bindung mit der analogen Welt. 
Viele Tabellen, Schaltungen, Be- 
rechnungen und Hinweise. Über 400 


2 


Seiten, 
Best.-Nr. 1070 


Complex Sound Generation with 
SN 76477 

Ein Applikationsheft für einen der 
interessantesten integrierten Baustei- 
ne unserer Zeit. Ein LSI-Baustein 
zur Tonerzeugung. Je nach äußerer 
Beschaltung können Sie mit diesem 
Baustein die verrücktesten Töne er- 
zeugen. 

Dampfeisenbahngeräusch mit 
Dampfpfeife, Vogelgezwitscher, 
Hundegebell, elektronische Orgel, 
Schuß mit Explosion u. v. a. mehr. 
Best.-Nr. 154 DM 19,80 


DM 39,-- 





DR.DOBB’S JOURNAL OF COMPUTER CALISTHENICS 
AND ORTHODONTIA, VOLUME ONE 

Die komplett gebundene Sammlung der ersten sehr interes- 
santen Ausgaben von Dr.Dobb’s Journal. Inhalt: Entwickeln 
Sie Ihre eigene BASIC-Sprache, Entwicklungshilfen für 
Tiny Basic, Wie programmiere ich den ALTAIR 8800 für 
Computer-Musikstücke, kompl.Listing des Denver Tiny- 
BASIC ° Computer für Musik und Komposition, Hardware 
und Software für Sprachsynthese, MINOL - ein Tiny Basic 
mit String, in 1,75 k Byte, System Monitor für 8080, Palo 
Alto Tiny Basic, kompl.Listing, 8080 Text Editor, Tiny 
Trek-Game, Fließkommaroutinen für 6502, Comp Music, 
2 80 KIT, 6800 Assembler, u.v.a., ca. 260 Seiten A 4 
Best.-Nr. 80/20 DM 59.-- 


How to Build your Own Working 
u. 16-Bit-Microcomputer von Ken Trac- 
How To. 4 ton 
Ba AeLR Alles, was Sie über den neuen Super- 
microprozessor TI9900 wissen müs- 
sen. Beschreibung des Schaltkreises, 
Peripherie-Bausteine für TMS9900. 
Tricks, Systemaufbau etc. Sehr in- 
teressant, da der TMS9900 das Herz 
des neuen Texas Instruments Perso- 
nal Computers ist. 
Best.-Nr. 1099 DM 14,80 
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Microprocesor Cookbook, von b 
Michael Hordeski 

A chip-by-chip-comparison of todays 
modern microprocessors. 

Die wichtigsten Prozessortypen wer- 
den genau beschrieben (Schaltung, 
Blockdiagramm, Befehlslisten, Pro- 
grammbeispiele) und verglichen. 
8080, 6800, F8, Z80, TMS 9900 
SC/MP, Bit Slices, R6500, 264 S. 
Best.-Nr. 1053 DM 24,80 
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The BASIC Cookbook, von Ken 
m sun 0 * | Tracton 

. Ein komplettes Dictionary mit BA- 
SIC-Befehlen. Alle Befehle sind in 
alphabetischer Reihenfolge geordnet 
und jeder Befehl genau beschrie- 
ben. Zu jedem Befehl ist ein De- 
monstrationsbeispiel beigefügt. 
Dieses Buch braucht jeder BASIC- 
Programmierer! 

Best.-Nr. 1055 DM 24,80 
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BASIC Programmierhandbuch von 
C. Lorenz 
Einführung und Nachschlagewerk. 
Speziell für die BASIC-Versionen der 
modernen Microcomputersysteme. 
Jeder Befehl wird ausführlich be- 
re schrieben und ein Beispielprogramm 
BUNTER gezeigt. Sehr übersichtlich und prak- 





R \.: tisch. Am Schluß finden Sie ein 
Einführung komplettes BASIC-Programm, das 
und Nachschlagewerk Ihnen über einen Computer BASIC 

lehrt. 

Best.-Nr. 113 DM 19,80 
Microsoft BASIC Handbuch Ib 
Ein Buch für alle, die das moderne 


Microsoft BASIC (BASIC8O und 
Standalone BASIC) kennenlernen 
möchten. Ideal als Einstieg und 
Nachschlagewerk. Mit vielen Beispie- 
len (Programmlistings) und Hinwei- 
sen. Ideal auch für die Schule, Aus- 
bildung und innerbetriebliche 
Schulung. Ca. 160 Seiten. 

Best.-Nr. 121 DM 29,80 
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TINY BASIC Handbuch, H. Hermann 
Das erste deutschsprachige Hand- 
buch über Tom Pittman’ s TINY 
BASIC. Eine Einführung in die 
TINY  BASIC-Programmiersprache. 
Wie kann ich meinen Computer 
(KIM-1) erweitern und BASIC pro- 
grammieren,. Systemvorschläge. Viele 
Programmierbeispiele, Tricks und 
Kniffe. 

Best.-Nr. 34 DM 19,80 








The A to Z Book of Computer 
Games 

26 aufregende und instruktive Spiel- 
programme fix und fertig zum Ein- 
geben in jeden BASIC-Computer. 
Nach einer kleinen Einführung in die 
Programmierung folgen interessante 
Spielprogramme, die jeder Micro- 
computerbesitzer gesehen haben 
muß, 

(Bandit, Cokes, Dice, Elevate, Fire- 
card, Gunners, Hobbit, Invert, Just- 
luck, Knights, Lapides, Match, 
Naughts + Crosses, Otello, Par 2, 
Quantal, Roulette, States Twenty 1, 
Ultranim, Verboten, Wumpus, X- 
Change, YATC, END, 

Am Schluß werden noch einige Tips 
zur Umwandlung in andere BASIC- 
Versionen gegeben. 

Über 300 Seiten. 


Best.-Nr. 1062 DM 29,80 


24 Tested Ready to RUN Game Pro- 
grams in BASIC, Ken Tracton 

Spaß- und Spielprogramme in BA- 
SIC. Viele Programme enthalten spe- 
zielle Anpassungshinweise an die 
Homecomputertypen TRS80 und 
PET. Viele Graphik- und Zeichen- 
programme, Ideal für jeden BASIC- 
Computer-Besitzer. 


Best.-Nr. 1085 DM 24,80 


57 praktische BASIC-Programme 

C. Lorenz, Ken Tracton 

Ein Buch mit technisch-wissenschaft. 
lichen Programmen und einer großen 
Anzahl von Spielprogrammen in 
BASIC. (Games). Ein Buch für je- 
den, der sich mit dem faszinieren- 
den Hobby der Microcomputertech- 
nik befassen will. Alle Listings sind 
in BASIC und können auf den 
meisten Personal Computer Syste- 
men gefahren werden. Alle Program- 
me wurden sorgfältig getestet. Zum 
Beweis ist für jedes Programm ein 
Protokoll des Probelaufs abgedruckt. 
Best.--Nr. 31 DM 39,-- 
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24 TESTED, 
READY-TO-RUN GAME 
PROGRAMS IN BASIC 


Fun and game programs —most including specific 
adaptations for the IRS-80 & PET’ home computers! 





Bücher für Microcomputer 


TRo-50 


IP TRETEBE Programmieren mit TRS-80 von 
Martin Stübs 

Das erste in einem deutschen Verlag 
produzierte Buch über den erfolg- 
reichen Personal Computer von 
TANDY. Ein Buch für jeden, der 
einen TRS-80 bereits besitzt oder 
vor der Entscheidung steht, wel- 
chen Computer er sich anschaffen 
soll. Einführung, Programmiertricks, 
Erweiterungen, Maschinenprogram- 
mierung und viele Programme (Li- 
sting mit Beschreibung) 

Best.-Nr. 111 DM 29,80 





The First Book of 80-US 

Für den TRS80 Freund eine echte " 
Preissensation. Die ersten fünf Hefte 
aus 80-US Journals in einem Sam- 
melband zusammengefaßt. Voll mit 
vielen sehr interessanten Hard- und 
Softwäreideen, Tricks. Viele kom- 
plette Programmbeispiele (Listings) 
in BASIC und Z80 Maschinenspra- 
che. Über 250 Seiten DIN A4. Far- 
biger Umschlag. Dieses Buch sollte 
jeder TRS-80-Besitzer oder der es 
werden will, im Schrank haben. 
Best.-Nr. 155 DM 19,80 
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25 Games in BASIC (Listing) Die Programme laufen auf dem PET. Inhalt: Number, Letter, Stars, 
Trap, Bagels, Mugwump, Hurkle, Snark, Reverse, Button, Chomp, Taxman u. v.a. 


Best.-Nr. 80/57 9,80 
57 Practical Programs and Games in BASIC, ca. 200 Seiten Listings. 

Best.-Nr. 1000 DM 35, -- 
BASIC Software Library Vol. I, Personal Bookkeeping, Games and Pictures, 49 BASIC-Programme. 
Best.-Nr. 80/50 DM 99,-- 
BASIC Software Library Vol. IV, General Purpose und viele Spiele, 21 BASIC Programme. 

Best.-Nr. 80/53 DM 39 - 


Dr. DOBBs COMPUTERZEITSCHRIFT. Die komplett gebundene Sammlung der ersten, sehr interes- 
santen Ausgaben. Sehr viele Programmlistings für den Hobbycomputerfan. 

Best.-Nr. 80/20, ca. 260 Seiten DIN A 4 DM 59 -- 
Microprocessor Software Handbuch, C. Lorenz 

Microcomputerprogrammierung für Anfänger und Fortgeschrittene. BASIC-Einführung in Deutsch. 
Best.-Nr. 27, über 280 Seiten DM 29,80 
PET 6502 Programmierhandbuch, das Handbuch für jeden PET-Besitzer und solche, die es werden 
wollen. Einführung, Programmbeispiele, PET-Erweiterungsmöglichkeiten. 

Best.-Nr. 110 DM 29,80 
The BASIC-Cookbook, Ken Tracton 

Über 138 Seiten BASIC-Einführung mit vielen praktischen Programmierbeispielen. Alphabetisch ge- 
ordnet, ideal auch als Lexikon.(Diagnose, Erhöhung der Rechengeschwindigkeit u. v.a.) 

Best.-Nr. 1055 DM 24,80 
A Beginner s Guide to Computers & Microprocessors — with projects 

Eine Einführung von Anfang an in die Mikroprozessortechnik. Bauen Sie Ihren eigenen Computer, 
programmieren Sie ihn und bedienen Sie ihn. Viele praktische Schaltungen. Über 300 Seiten. 

Best.-Nr. 1015 DM 29,80 


650X Software Manual (Programming Manual), sämtliche wichtige Daten und Programmierhinweise 
für die 6502 Programmierung. Ca. 200 Seiten. 


Best.-Nr. 80/42 DM 19,80 
650X Hardware Manual, 6502 Systemorganisation, Grundlagen, Applikationshilfen u. v. a. mehr. 
Best.-Nr. 80/43 DM 19 80 
6500 Seminarheft (Briefing Notebook), eine kleine Einführung in die 6500 Systemfamilie. 

Best.-Nr. 80/45 DM9 80 
6500 Datenblätter, eine Sammlung aller wichtigen Datenblätter aus der 6500-Familie. 

Best.-Nr. 80/46 DM 9 80 


6502 Microcomputer, Aufbau und Programmierung. Ein deutsches Anleitungsbuch zum Einstieg in 
die Microcomputertechnik mit Hilfe des KIM-1. Viele Programmierbeispiele von einem Pädagogen 
speziell für den Anfänger entwickelt. (PET, VIM und AIM) 


Best.-Nr. 109 DM 29,80 


Auch Sie brauchen ELCOMP! 


Jahresabonnement DM 59,-- 
incl. Mwst. und Versand. 
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Ing. W. Hofacker GmbH 
Tegernseer Straße 18 


Volume 1 September 1978 DM 350  SFrä4.- 


1. Jahrgang 


Symbole 

Microcomputer Grundkurs 
ELCOMP Software-Shop 
North-Star Horizon Computer 
Software für Z 80 Systeme 
Selbstbaucomputer mit Z 80 
Bauanleitung für ein eigenes 
Microcomputersystem, Teil 1 
8085 Microcomputer-KIT 
Microcomputer-Anwendung im Klein- 
betrieb 

$-100 Bus Adapter für PET 2001 
Exidy - Ein neues Microcomputer- 
System mit Z 80 

Hauskauf mit BASIC 
Heimcomputer-Vergleichsliste 
BASIC-Programm FACTORS 

Der S-100 Bus (Beschreibung) 
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Viele Programme fur den PET 


Software für 8080/Z 80/6800 Systeme 
Hardware-Neuheiten 


4 51 


A 53 
#4 53 AIM-Computer von Rockwell 
4 54 Erweitern Sie Ihren KIM-1 

4 56 Termine - Neue Bucher 
: 57 Der VIM-1 
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D-8150 Holzkirchen/Obb. 


Die Fachzeitschrift für MICROCOMPUTER 
Eine unentbehrliche Informationsquelle für alle Elektroniker 


Microcomputer-Anwendungsbeispiele 
Künstliche Intelligenz 
Block-Strukturierte Programme 
Datenverarbeitung im Kleinbetrieb 
Club-Neuheiten 

Computer und Kunst 

Musik mit dem Computer 

Monitore für 8080, 6800, 6502, Z 80, 
SC/MP, 2650, 1802 
Eigenbau-Computersysteme 
Interface-Techniken 

Microcomputer KITs 


Neue Produkte 
Betriebssysteme für Floppys 
Programmiertechniken 
Software-Quellen 
Programmierbeispiele 
Soziale Aspekte der 
technik 
Technologische Neuheiten 
Anwendungen in der Meß- und Regel- 
technik 

Anwendungen bei Funk-Amateuren 
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